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Her i sommerferien har vi fået to 
interessante breve. 

Brev 1 var fra Holland hvor man 
har taget initiativet til et mere 
effektivt udvekslings arbejde. 

Det der skal udveksles er public 
domaine programmer og artikler 
mellem klubber, programmerne skal 
oversættes til engelsk hvilket vel 
nok skulle være muligt. Værre er 
det straks med artikler, for der 
tales ikke om at de skal oversættes 
men mon ikke det bliver stærkt 
nødvendigt ? 

Sidst i brevet antydes der at der 
kan blive mulighed for at få dis- 
tributeret rigtig gode programmer i 
hol land. 


Andet brev var fra 
M.S.X CLUB OF SOUTH AUSTRALIA 
(Mon Crocodile Dundee er medlem?) 
De kunne godt tænke sig et sammen¬ 
arbejde. 
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•M-a-SHfr M8X S VIDEOTRIXS FOR SVI 736 *-*"*-* 


hsx 2 vieeoTftiKs 

FOR SVI 738 

Jeg vil nu vise jer hvordan man på 
SVI738 kan lave en MSX2 screen 4 
uden at skulle forøge mængden af 
VRAM. 

MSX2 screen 4 svarer i opløsning 
til Screen 2, forskellen ligger i 
at man har forbedrede muligheder 
med hensyn til SPRITE's. 

De fleste af jer har jo nok alle¬ 
rede stødt på problemer med sprites 
når der kommer mere end 4 sprites 
på samme linie. Dette er faktisk en 
stor begrænsning af vores mulighe¬ 
der med sprites, derfor har man 
forbedret dette på MSX2 så man kan 
have 8 sprites per linie. 
Begrænsning nummer 2 med hensyn til 
sprites er FARVERNE, normalt gælder 
Hver Sprite 1 Farve. Hvis man vil 
have flere farver på sin mrs.PACMAN 
vil mere end 1 forfølgende Ghost 
give spritefejl. Surt! 

Selv med 8 Sprites/linie når man 
hurtigt op på spritefejl hvis man 
gerne vil lave nogen flotte 
farveladefigurer. 

Men, med Screen 4 kan man OGSÅ 
have flere farver per sprite, der 
er nemlig muligheder for 1 farve 
per linie og dette er jo en positiv 
forbedring. 

Når nu vi har 16 farver pr sprite 
må disse informationer jo gemmes et 
eller andet sted, man har derfor 
defineret en SPRCOL tabel der er 32 
x 16 Bytes lang (&h200) og denne 
ligger ALTID 512 bytes under GRPATR 
base adressen (BASE(13)) 

Desvære er der med den normale 
konfiguration af SCREEN 2 ikke 
plads på dette sted for her ligger 
BASE(10) altså GRPNAM der er skærm¬ 
opbygningen. Hvis du kigger tilbage 
på sidste blad side 11 kan du se 
længderne af de forskellige BASE og 
hvor de kan ligge. Jeg har puslet 
lidt med det og her er løsningen på 
en simpel måde. 

Vi flytter bare BASE(13) op så den 


starter på adresse lEOOh for så har 
vi de 200h Bytes vi skal bruge. 

Hvis man i sin autoexec includerer 
en BASE(13)=&hlE00 har man flyttet 
GRPATR frem så der er plads neden¬ 
under til SPRCOL. 

Følgende simple linje skifter mode. 

VDP(0)=4:vdp(5)=63 

Hvis man vil tilbage igen: 

VDP(0)=2:Vdp(5)=60 

Det er bit 2 i VDP register 0 der 
sørger for selve omskiftningen 
mellem de to Sprite Modes. 

Vdp(5)'s 2 laveste bit stiller 
hvordan farverne skal fordeles. 


Vi forestiller os at vi opstiller 
alle 32 sprites på 4 linier a 8 
sprites. 

A) 01234567 

B) 8 9 10 11 12 13 14 15 

C) 16 17 18 19 20 21 22 23 

D) 24 25 26 27 28 29 30 31 

Biti BitO 


0 0 D=A,C=A,B=A 

0 1 C=A,D=B 

1 0 B=A,D=C 

1 1 Alle kan stilles. 


Det er af denne grund at vi stiller 
de 2 laveste bit til '1* 


Når du bruger SPRITE MODE 2 i dine 
egne programmer skal du selv stille 
farverne med VPOKE da PUT SPRITE 
ikke klarer dette for dig. 

Da vi kun har 16 farver til rådig¬ 
hed er der 4 bits tilovers i de 16 
farve-bytes. Af disse 4 er de 3 
benyttet på følgende måde: 

Bit 7 


Early Clock. 

Er denne sat flyttes linien i 
spriten 32 punkter mod venstre, på 
denne måde kan man få spriten til 
at forsvinde langsomt ud. 
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For at spriten skal 'glide' ud 
eller ind stiller man denne bit og 
skynder sig at lægge 32 til X- 
koordinaten. Når spriten så er 
kommet helt ind eller ud kan man 
slette bitten og trække 32 fra igen 


Priority Enable. 0=no l=Yes 
Hvis denne bit sættes vil denne 
lime i sprites ikke vises på skær¬ 
men med mindre en sprite med lavere 
nummer også er i denne horizontale 
linie.(Fik i den ?) 

Udover dette vil der ved overlap¬ 
ning af to eller flere sprites ske 
en OR operation mellem de involve¬ 
redes farver og denne farve vil det 
område hvor overlapningen sker så 

Altså hvis Sprite 1 har 'farve 8 og 
Sprite 2 har farve 4 vil der på det 
overlappede stykke fremkomme farve 
(1000 OR 0100 = 1100 BINÆRT) 

12 hvis altså en af spritene har 
fået sat bit 6 i de pågældene 
Farve-1i ni er. 


Col1 ision detection. 

Man kan ved at stille denne bit '1' 
få Videochippen til at 'Glemme' at 
checke om denne linie i spriten 
støder sammen med andre sprites. 

Håber i fik den, her er et 
par demonstrations programmer. 



3 X MUSIK 
MED JOHNNY 



1 Et lille musik pot pur i 

2 'for musikelskerne 

9 ‘af Johnny B 

10 PLA Y"sl 9m490t299 " 

20 READA$: IFA$- "end"THENPLA Y"rl . ":G 
O TO20EL SEIFA$-"END"THENEND 
JO PLAYA$:G0T020 

99 'Si gir vi til enkebal 

100 DATA o914alr4gfga2g2flflr4gfef2 
d2clcdf ga2f2gr4o6o.d8oo9b-ag 
i{° DA J A °214alr4gfga2g2flflr4gfef2 
dZclodf ga2g2f 1 . r4 

120 DATA o414r8o8coood8oo9a2f8ffff q 
f r r d J/ 8 cdr 9 » 2 f 2 gl. r 4 r 4 o 4 coood 8 oo 9 a 2 r 
8 ffffg 8 fd 2 r 8 cdfga 2 g 2 flr 4 ode 
lJO DATA oJ14alr4gfga2g2finr4gfef2 
d2olodfga2f2gr4o6c.d8oo5b-ag 
140 DATA oJ14alr4gfga2g2flflr4gfef2 
d2olodf ga2g2fl.r4 
190 DATA end 

199 ’What Did You Learn ln Sohool T 
oday 

200 DATA tl9018o9ool6cl6egg. gl6g4ee 
16el6def2ocl6ol6egg.gl6g4eel6el6fdc 

210 DATA 13oJr8 ga. al 6 agl 6 fl 6 gl 6 gl 6 g 

léglégga.aléafgggga.aléaaggggaaléal 

6 afg gl6go2go9ool6cl6egg.gl6g4eel6e 

16 rdc2 

220 DATA end 

299 ‘Ah. disse minder 

J00 DATA t299o914f+8f+8aar8f+8bbf+8 

r+ 8 aa 8 aar 8 e 8 ggr 8 c+ 8 f+f+r 8 o 2 a 8 o}eer 8 

o+8o2blo9 r4f+ 8 f+ 8 aar 8 f+ 8 bbr 8 f+ 8 aar 8 

Q 8 ggr 8 c+ 8 f+f+r 8 o 2 a 8 o}eer 8 c+ 8 dlr 4 r 8 
J10 DATA o 9 14f+8o4ddr8oJf+8o4o+o+r8 
°Jf+8bbb8b8o4ddr8d8o+c+r8c+8oJg+abo 
4c+lr4oJf+8f+ 8 aaf+ 8 f+ 8 bbf+ 8 f+ 8 aar 8 e 
8 ggo+ 8 c+ 8 f+f+r8o2a8oJeer8o+8dlr4r4 
J20 DATA oJ14alg+ab2.a2. f+r+f+r+ef+ 
gi. bla+bo4o+2. o9b2.aaaaa-gf+ 1 .alg+a 
b2. a2a8a8o4ddddo+oo9bl.bbbo4o+o9bo4 
° + d 2 . o9a2a8a8bbr8a8o4o+o+o9r8a8o4dl 
r4r4 

600 DATA END 







■*-#■** 3 X MUSIK MED JOHNNY -*-$*-**- 


1 'Nok et lille stykke denne gang 

2 'med flere toner det er et 

5 'JØRN INGEMANN stykke og det er 

4 'uendelig lang ha ha. 

5 'af Johnny B 

6 ' 

10 REST0RE1000:LN-1000 
20 READA$,B$:IFA$~"end"THEN10 
40 PLAYA$,B$ 

JO G0T020 

1000 DATA 18r8r8r8r8r8r8r8r8r8r8r8r 
8r8r8r8,18o5oegeo4oo5gegcegeo4oo5ge 
1010 DATA 18o5ooo4go5oeoegoo6oo5bag 
gg.18o5gcego4oo5ego4oo5gfao4ofo5oe 
1020 DATA 18r8r8o5gfdo4bgbo5dfeoagg 
. 18o5go4co2gbo5dgo2bo5dgdoeo4co5ge 
1050 DATA 13o5gr8oco4go5cecegco6oo5 
bag. 18o5go4co5goego4co5ego4oo5gfao4 
of 

1040 DATA 18o5ggr8r8gfdo4bgbo5do4bo 
5co4go5e,18o5cøgo4co2gbo5dgo2bo5dgd 
oeg 

1050 DATA 18o5ocor8cco4go5oecegco6o 
oJb,18o4oo5ego4co5gcego4co5ego4co5g 
fa 

1060 DATA 18o5agggr8r8o6gfdo5bgbo6d 
f e.18o4cfo5cego4co2gbo5dgo2bo5dgdc 
1070 DATA 18o6cagggr8o5ooo4go5oeoeg 
c, 18o5eo4oo5gego4co5gcego4co5ego4co 
Jg 

1080 DATA 18o6oo5bagggr8r8o6gfdo5bg 
boéd.18o5fao4cfo5c@go4co2gbo5dgo2bo 
5dg 

1090 DATA 18o5bo6co5go6eoocr8oo7oo6 
afoo5ao6o.18o5dc@go4oo5ego4oo5 gfao4 
ofo5ao4c 

1100 DATA 18o6 Fagcsgggr 8 r 8 gf do5bg ,1 
8 o 4 fO 5 fceo 4 oo 5 g@go 4 co 5 go 2 gbo 5 dgo 2 b 
1110 DATA 18o5bo6dfeoaggr8r8go7co6a 
f o.18o5dgdo@o4oo5gogo4oo5gfao4cf 
1120 DATA 18oJao6ofagoaggr8r8ogfd,l 
8 o 5 ao 4 cfo 5 foeo 4 co 5 g&go 4 oo 5 go 2 gbo 5 d 
1150 DATA 18o5bgbo6do5bo6oo5go6eccc 
co.18o5go2bo5dgdceo4oo5gego4co5g 
1140 DATA end. "" 


1 'Nok et lille stykke 

2 'en sød lille melodi 
5 ’ kaldet Rabbit 

4 'af Johnny B 

5 ' 

10 RES TOREl 000:LN=1000 
O READA$.B$ : IFA$-"end"THENEND 


40 PLAYA$.B$ 

50 GOTO20 

1000 DATA 18o5eeooeeooo4abo5odeed,1 

8o5go4cego5go4cego5fao4ofo5gbo4f 

1010 DATA 18o5deecceeooaagfee,18o4g 

O5go4cego5go4cego5fao4ofo5gb 

1020 DATA 18o5ddeecoeeooo4abo5c de, 1 

8o4fgo 5 go 4 oego 5 go 4 oego 5 fao 4 cfo 5 g 

1050 DATA 18o5effggagocdeffo4bb,18o 

5bo4fgo5go4cego5go4cego5gbo4fg 

1040 DATA 18o5 o oo 006 ooo5babbagagf,1 

8 o 5 go 4 cego 5 fao 4 ofo 5 gbo 4 fgo 5 fao 4 c 

1050 DATA 18o5aggocaagfgedodd.18o4f 

o5go4cego5fao4ofo5go4cego5gb 

1060 DATA 18o5dgeeeeoéooo5babbaga, 1 

8o4fgo 5 go 4 cego 5 fao 4 cfo 5 gbo 4 fgo 5 f 

1070 DATA 18o5gfaggccaagfgedo.18o5a 

O 4 ofo 5 go 4 cego 5 fao 4 ofo 5 go 4 cøg 

1080 DATA 18o5dddecccor8,18o5gbo4fg 

o5go4cogr8 

1090 DATA end."" 

1 'og en sidste for i dag 

2 'det er Palmer hej fra 
5 'Johnny B 

4 ' 

10 RESTOREIOOO:L~0 

20 READA$,B$:L=L+LEN(A$)+LEN(B$) 

50 IFA$~"end"THEN 10 
40 PLA YA$. B$ 

50 GOT020 

1000 DATA 18o4go5cøeedco4bo5oo4ag g g 
gg.18r3r8o5go4co5go4co5fafago4co5go 
4co5g 

1010 DATA 18r8o4go5edddc#ddfedddd,l 
8o4co5go4co5gbgbgbgbgbgb 
1020 DATA 13o5dr8o4go?cøeedco4bo5co 
4aggg.18o5gbr8r8go4co5go4co5fafago4 
co 5 g 

1050 DATA 18o4ggr8o5co4baao5dco4bbo 
5øde o.13o4co5go4cr8r8o5fo4cr8r8o5gb 
r8r8go4c 

1040 DATA 13o5ococr8o4gaao5oofffo4a 
g.18o5go4co5go4co5gr8fo4oo5 fo4co5fo 
4co5fo4oo5g 

1050 DATA 18 o4 go 5 co se e co4b a bo 5 od d f f 
.13o4co5go 4c o 5go4co5go4co5gbgbgbgb 
1060 DATA 18o5eeeeocco4gaao5cofff,l 
8o5go4co5go4co5go4co5gr8fo4co5fo4co 
5fo4co5f 

1070 DATA 18o4aggo5oceeeco4bbbo5ode 
.18o4oo5go4co5go4oo5go4oo5go4oo5gbg 
bgb 

1080 DATA 18o5do4bo5coooor8r8.18o5g 

bgo4co5go4co5go4cr8 

1090 DATA end."" 





-*-*-** TIPS FOR SVI 328 -*■ FEJL RETTEREN -*--*-■*■* 


TIPS FOR 328 
FRA HAGNUS 

Ett bra sått att listskydda sina 
program år: 


Poke &h8003,&hff (Normalt =10) 
Paks &h8004,&hff (Normalt =0) 


Adresser: 

&hfd86 

Schf d87 

254 


Shift 

F1/F6 

253 


Ctrl 

F2/F7 

251 


L.Grph 

F3/F8 

247 


R. Grph 

F4/F9 

239 

223 


ESC 

F5/F10 

-o — 

— o - O- 

-Q-£ 

— 

Va d 

hette det 

sist 

programet 

?? 



CapsLock 


inladdade 


For X=8<hF9A7 to &HF9AC:?ChrH(Peek( 
X));:next x 

-o-o-6—=- 

Sammarrfgaa två o_l_i ka program: 


Prog 1 sparas på nytt med Save 
"namn",A 

Prog 2 sparas som vanligt 


C1oad "prog.2" 
Nerge "prog.1" 



FEJL RETTEREN 

H.G. har i et anfald af anger 
oplyst at han har fundet følgende 
fejl i sine Artikler i år. 

Blad 5: 

Side 11 Spalte 2 linje 4: 

Man har 64 stk 16*16 Sprite og 
ikke kun J2. Det var bare H.G. 
der var lidt dårlig til den 
store tabel. 

Side 11 Spalte 2 linje 11-14 fra 
bunden. 

Computeren runder IKKE adres¬ 
ser i BASE kommandoer af så 
de passer. H.G. mener helt 
sikkert at han havde prøvet 
det uden at 'kassen ' brakkede 
sig. 


-O-Q-Q-Q- 

Fgna Hiinder £>å RANE N 

10 Poke &HF4FF,49:Poke &HFe79,201 
20 Restore: AD=&HF400 
30 READ Ad:ifAfcK >"0" then poke ad, 
Val("&H"+Ad):Ad=Ad+l:Goto 30 
40 For 1 = 1 to 10:ReadA:PokeI+&HF3EF, A: 
Next I 

45 Poke &HFE7A,0:Poke&HFE7B,&HF4 
50 Data -F5 , c5, e5,6, 1 , 10, fe, 21 , f0, f4 
,6,10,c5,7e,23,d3,81,3e,87,d3,81 
,00,6,3a,10,fe,cl,10,ee,3a,ff,f4 
, d3,81,3e,87,d3,S1,e1,c 1,f1,c9,d 
60 Data 13,14,12,2,3,5,4,7,3,12 
70 Poke &HFE79,195:’ Tånd rånderne 
80 Zd=inputd(1) 

90 Poke &HFE79,201:’ Sluk rånderne 
100 Zd=inputd <1) 

110 goto 70 

By Nagnus Pihi 1988, 

Computer Software Service ! 


Blad 2 (i år) Side 13 2. spalte 

Jeg (H.G.) har i 2. program 
eks. lavet en fejl, linie 10 
skal se ud på følgende måde. 

10 A$=INPUTS(1) 

og altså ikke INKEYS(1) 

På grund af sine indrømmelser har 
H.G. fået frit lejde og kan nu med 
lettet hjerte og' samvittighed gå 
hjem og holde sin resterende som¬ 
merferie. 
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■*■■*■•*■* FOR BEGYNDERE -X"*-*-* 



Første pro teøner en sinuskurve 

10 SCREEN 0:L0CRTE10,10*PRXNT"Piea* 
e Unit*' 

20 DIN 8(360),C(36Q) 

20 FOR XX»0 TG 36G STEP2lRaXX/57.33 
40 S(XX)«SXN(M>tC<XX)aCOS(R) 

@0 NEXTXX 

60 SCREEN 22'eiler sereen 3 
70 FGR XX *0 TO 360 STEP 2 
80 PRESET <XX/2,S(XX)#30+S0),7 
SO PRESET <XX/2,S<XX)»3©*3Q>,1 
100 MOT XX 
110 GOTO 110 

Maste prg tegner Mel eller 
ale i CXRCLER 

10 SCREEN 2 

20 OEF FNR(RWGLE)«RWGLE/37.33 
30 8T»FNR( 180 )t * FORRMORE STRRT VIN 
KELEN VED RT.FORRMORE TRLLET X ( ) 
40 ’TO STeRRE^TRL X ( ) JO NINDRE R 
F CIRKLEN TEGNES 

SO ’JO MINDRE TRL X < ) JO MERE RF 

CIRKLEN TEGNES 

60 CXRCLE (100,100),40,13,S? 

70 GOTO 70 

Nu en lille sprite mmmå 
eSer Ssevæger sig omkring 

10 ON INTERVRLolO 008US 1000 
30 SCREEN 1,1 

40 FOR Xsl TO 8SRERD NSRfsRS't'CMRS(N 
) tMEXT 

30 SPRITES(1}»RS 
60 XX«128SYXB96*XXXai*YXX3i 
63 XMTERVRL ON 
70 FOR X*1 TO 9000SNEXT 
80 END 

90 DRTR 36,36,16,56,84,16,40.68 
1000 PUT SPRXTE 1,<XX,YX),1 
1010 XXeXX+YXXIYX«YX+YXX 
1020 XF RN0(2)W6>4 TNEN XXX>-XXX 
1030 XF RN0(2)«4>3 TNEN YXXe-YXX 
1040 RETURN 


Nu en lille iytfeBemons trat ion 

10 SOUNO 1,3 
20 SOUND 8,10 
30 FOR XX«0 TO 233 
40 SOUNO G,XX 
SO NEXT 
60 SOUNO 8,0 


Og nok en lyd borge 

10 SOUND 0,133 s SOUND I , O : 'tone pltc 
h 

10 FOR {*0 TO l S 

30 FOR J*0 TO 30:NEXT: 'de Iay loop 
40 SOUND 3,1 
50 NEHT 
60 SOUND 3,0 


Nok en (yd 

10 SOUND 7 ,&B10110111 
20 SOUND 8,G 
30 FOR I-O TO 31 
40 SOUWD G, I 
50 I*=INPUT*(1) 

GO NEXT 
70 SOUND 8,0 

Ban g du er død 

10 SOUND 7.&B10110111 

20 SOUND 8,15 

30 FOR 1=31 TO O STEP -.5 

40 SOUND G, I:SOUND 8,1/2 

50 NEXT 

GO SOUND 8,0 

Her er 2 rutiner til at Qemme 
og ioade et screen biiiede i 
screen O på bånd eiier disk 

1000 'gem screen 
1010 NI7)X=BAS£(0) 

1020 Pm*/.=BAS£(2) 

1030 OPEN"SCREEN" FOR OUTPUT AS #1 
1040 FOR IX=NWX TO N fTl^+ASA 
1050 C%=VP££k( IX):PRINT#1,CHR$(CZ); 
1 OGO NEXT 

1070 FOR \ m /.=Pm TO PfT)%+2047 

1080 C'/.=VPEEk( r/.) .-PRINT #1 .CHR*(CX) 









*-*-*■* FOR BEGYNDERE -*•■*■** 


7 090 NEXT ; CLOSE #7 
1100 RETURN 
7500 ' 

7 G00 " 

1 700 ' 

2000 'ioad screen 
2010 Wm^=BAS£(0) 

2020 Pm^BAS£(2) 

2030 OPEN"SCREEN" FOR I NPUT AS #1 

2040 for r/.=Nirr/' ro Nm%+q5A 

2050 A$= / NPUT $(1 , #1 ) : VPOk£ l*/.,ASC(A 
*) 

2060 N£XT 

2070 FOR 1%-PVtK TO PfT)% + 2047 

2080 A$=INPUT*(1,#1):VP0kE /%,ASC(A 

«) 

20A0 NEXT:CLOSE #1 
2100 RETURN 
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opstil Ilnu dette u»i’ du med 
dette I I I I e prour am 
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OO KKXT0 
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IO CLS 
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iio Oli IST” . 

50 Oli IST 


00 l’0IM|>1T034i<|#-STIt*<<|>+" ” i IKLKSC 
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, 2 > 

05 llllAI) \fi 
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IIO SHXTII 
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04 OATA” a IMIIi 
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Hej for nu Johnny 51. 
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BRAFIKTEGN PA PRINTEREN r 


SVI 328 
GRAFIKTEGN 
På PRINTEREN 

Et problem som vi har haft hør på 
redaktionen har været SVI-328 prog¬ 
rammer med grafik-tegn i, for 
hvordan skal vi få dem printet ud? 

Indtil for nyligt har vi måtte 
bruge et par timer pr program på at 
lave tegnene om til CHR$(nr) 
hvilket i visse tilfælde har 
forlænget listningen med ca 25'/.. 

Problemets løsning er 'DownLoad' 
karakterer, dette forefindes på de 
allerfleste printere på markedet. 

Fra aktive Uffe Bagger Hansen har 
vi modtaget et program til at 
definere tegnene på en 11 nåles 
printer men da det er de færreste 
der har sådanne har jeg brugt en 
nat på at lave programmet om til de 
mere gængse printere: Seikoshia, 
Fuji PD80 og lignende EPSON 
kompertible printere med 7x8 dots 
størrelse tegn i 8x9 matrix. 

Grunden til at jeg brugte en hel 
nat var at jeg først skulle repa¬ 
rere min gamle Fuji printer. 

Her er de to versioner af 
programmet, hvis du får problemer 
så CHECK: 

At Dip Switchene er sat rigtigt. 

At du har RAM nok i din printer 
(2 eller 4KRAM i EPSQN-komp.) 

At linie 50 passer, CHR$(14) er det 
Danske tegnsæt. 

At linie 90 passer med styrekoder¬ 
ne til din printer. 

At linie 140 er den rigtige måde at 
slå over til DownLoad sættet på. 

På EPSON-komp. skifter man til det 
.ormale (danske) tegnsæt med: 

„pr intchr$(27)"R"chr$(14) 



10 ' SOI-328 DOWNLOAD 

20 ' EPSON (FUJI PD80) 9 nåle 

30 ' 

40 ' Kopierer Dk-tegnsæt -> Ram 
50 LPRINTCHR$(27>;CHR*(58>;CHR$C14);CHR$(1 

60 ' LÆSE TEGN SOM SKAL ÆNDRES 

70 READA+:IFA$="$"THEN 14 0 

SO ' Sæt parametre tor Download 

90 I=ASC(A$):LPRINTCHR$<27);«*■;CHR$<I);CH 

R$<I)»CHR$< 0)J 

100 ' Her detineres tegnet 

110 FORT=0TO7:READA:LPRINTCHR$(A);:NEXT 

120 GOT070 

130 ' Vælg DownLoad Tegnsættet 

140 LPRINTCHR$<27);CHR$<37);CHR*<1)}CHR$(0 

150 ' Ois Download Tegnsæt 

160 F0RI= 160TQ211:LPRINTCHR$< I):" ’TNEXT' 

LPRINT 

170 END 

180 ' SOI-328 Grafik sæt DATA 

190 DATA * y ,, ,,255,8,8,8,8 

£.00 DATA "*"1240,240,240,240,240,240,240,2 

40 ' 

23 0 DATA !, J 3 ,8,S,S,248, , , , 

220 DATA "-J* ,8,8,8,255, j, , 

230 DATA 3 ,8,8,8, 15, , , , 

240 DATA "I”,,,,,255,255,255,255 

250 DATA "S",240,240,240,240^15,15,15,15 

260 DATA “I" .255,255,255,255,,,, 

270 DATA "T,128,128,128,128,128,128,128,2 

280 DATA "L”,255,1,1,1,1,1,1,1 
290 DATA "J",1,1,1,1,S,1,i,255 
300 DATA , 1, 1, 1,1, 1, 1, 1, 1 
310 DATA "=",20,20,20,20,20,20,20,20 
320 DATA ''■",240,240,240,240,,,, 

330 DATA , 128,128,128,128,128,128,128,1 
28 


340 DATA 
55 


,255,129,129,129,129,129, 129,2 


350 DATA "r“,,,,,15,3,8,8 

360 DATA ■ .",,,,,15,15,15,15 

370 DATA "+",8,8,8,8,255,8,8,8 

380 DATA 'V ,15, 15, 15,15, 15,15,15,15 

390 DATA T",255,128,128,128,128,128,128 1 

23 5 

400 DATA ,240,240,240,240 

410 DATA "t" ,3,3,3,S,15,8,8,8 

420 DATA "J-" ,3,8,3,8,248,8,3,3 

430 DATA ".",15,15,15,15,,,, 

440 DATA " L ",,,,,243,8,3,8 
450 DATA "W” ,255,127,63,31,15,7,3,1 
460 DATA "r, 120,252,254,127, 127,254,252 1 
20 ’ 

470 DATA "/",1,2,4,8,16,32,64,128 











490 DATA "V,128,64,32,16,8,4,2,1 
500 DATA "O" ,<60,66,129, 129, 129,129,66,60 
510 DATA V",15,15,15,15,240,240,240,240 
520 DATA "i 8 ,60,126,255,255,255,255,126,60 
530 DATA \ “,8,8,4,4,3,,, 

540 DATA 8 18 ,,,, ,224,16,8,3 
550 DATA ,8,8,16,16,224, 

560 DATA n | 8 ,255,, ,, , ,, 

570 DATA "*“,56,57,57,247,247,57,57,56 
580 DATA ,24,60,126,255,255,126,60,24 
590 DATA 8 I 8 ,,,,,,,,255 
600 DATA ,255,255,255,255,255,255,255,2 

610 DATA T" ,255,254,252,243,240,224.192 1 
28 

620 ^TA "**“,10,5,10,5,10,5,10,5 
630 DATA "i",1,3,7,15,31,63,127^255 
640 DATA "i 8 ,170,85, 170,85,,,, 

650 DATA 8 / , , , , ,'3,4,4,8 

660 DATA “**,56,121,121,255,255,121,121,56 

670 DATA “1“,128,192,224,240,248,252,254 ’ 

55 

680 DATA "-",8,8,8,8,8,8,8,8 
690 DATA “I 8 ,170,85,170,85,170,85,170,35 
• 700 DATA ” ,,,,,255,,, 

710 DATA $ 


10 ' SVI-328 DCMsiLQAD 

20 ' TIL 11 Nåles printer 

30 ' Af Uffe Bagger Hansen 

40 ' KOPIERE ROM TIL. PRINTER RAM. 

50 LPRINTCHR$(27);CHR$<58);CHR$(0)jCHRStO) 
;CHR$<0); 

60 ' LÆSE TEGN SOM SKAL ÆNDRES 
70 READA$:IFA$="$$"THEN 14 0 
BO ' GIVE PRINTERNE KOMANDO TIL AT 
1B4DRE KARAKTER SOM LÆGGER I 
VARIABLE 'I' 


5'0 I=ASC<A$) sLPRINTCHR$<_7) i"&" 
R*<I ) JCHR$U : ;CHR$( 139) ; 

100 ' SENDE DATA TIL PRINTEREN 
VARIABLE 'I' 


}CHR*<0)}CH 
OM 


110 FORT=OTO10:READA:LPRINTCHR$<A);sNEXT 
120 GOT070 


130 ' SÆT NYE GRAFIK TEGN TIL 

140 LPRINTCHR$<27) jCHR$<37) JCHR$( 1) ;CHR*wj 


150 ' SÆT ALM. GRAFIK TEGN TIL 
160 , LPRINTCHR$(27)}CHR$<37);CHR$(0)JCHR$( 
0 )} 


170 ' SKRIVE NYE GRAFIK TEGN 

180 FORI=160T0211:LPRINTCHR$(I) 5 8 8 isNEXT 1 

LPRINT ’ 


190 END 


200 ' DATA TIL PRINTER TEGN 
210 DATA * I-*,, , ,, ,255, ,8, ,8, 

220 DATA ,240,,240,,240,,240,,240,,240 
230 DATA * J8 ,8,,8,,8,,248,,,, 

240 DATA *4 8 ,8,,8,,8,,255, 

250 DATA 8 -i 8 ,8, ,8, ,8,, 15,,,, 

260 DATA 8 I 8 ,,,,,,,255,,255,,255 
270 DATA "% 8 ,240,,240,,240,,15,,15 15 

280 DATA 8 | 8 ,255,,255,,255,,255,,,, 

290 DATA "T, 128,, 128,, 128,.,128,, 128,,255 

300 DATA 8 L 8 ,255,,1,,1,,1,,1,,1 

310 DATA 8 J 8 , 1, , 1,, 1,, i i 255 

320 DATA “_ 8 ,1,,1,,1,,1,,1,,1 

330 DATA 8 =",20,,20,,20,,20,,20, 20 

340 DATA ■■■,240,,240,,240,,,,,, 

350 DATA “~ 8 ,128,, 128,, 128,, 128,’, 128,, 128 
360 DATA 255,,129,,129,,129,,129. 255 
370 DATA “r 8 ,,,,,,,15,,8,,8 ’ 

380 DATA 8 i 8 ,,,,,,,15,,15,, 15 


390 DATA "+ 8 ,8,,i 
400 DATA V,15, 
410 DATA T 8 ,255 
420 DATA 8 18 ,,, , 


!, ,8, ,255, 

15,,15,,15,,15,,15 
, 128,,128,,128,,128,,128 
,,240,,240,,240 


430 DATA "t 8 , 8,,8,, 8 ,, 15,,8..8 


440 DATA 8 -L",8,,8,,8,,248,,8 ,8 
450 DATA ", 8 ,8,,8,,8, 


460 DATA 8L ",,,,,,,248,,8,,8 


470 DATA "k 8 ,255,,63,,31,,15,,3,,1 
480 DATA -f", 120,,252,,127,,127,,252,,120 
490 DATA 8 6,,12,,43,,96,,128 


500 DATA "X",129,,102,,60,,60, 102, 129 
510 DATA 8 \ 8 ,128,,96,,48,,12,,6,,1 
520 DATA "O 8 ,60,, 102,, 195,,195,,102,,60 
530 DATA V" ,15,,15,,15,,240,,240,,240' 
540 DATA 60,,126,,255,,255,,126,,60 
550 DATA S 8 ,8,,8,,4,,3, 


560 DATA 8 ,,,224,, 16,,8 
570 DATA 'J” ,8,,8,,16,,224, 
580 DATA “| 8 ,255, 


590 DATA ,56,,57,,247,,247,,57,,56 
600 DATA "V,24,,60,,255,,255,,60,,24 
610 DATA 8 I" , 255 

620 DATA “i" ,255,,255,,255,,255,,255,,255 
630 DATA *r“,255,,252,,240,,224,,192, 128 
640 DATA 8 * 8 ,10,,5,,10,,5,,10, ,5 
650 DATA 8 i 8 ,1,,3,,15,,31,,63,,255 
660 DATA 8 i 8 ,170,,85,,170, 

670 DATA 8 / 3,,4,,8 

680 DATA 8 * 8 ,56,,121,,255,,255,,121,,56 

690 DATA "T,128,, 192,,224,,240,,252,,255 

700 DATA 8 - 8 ,8,,8,,8,,8,,8,,8 

710 DATA 8 i| 8 »170, ,85, y 170, ,85,, 170, ,85 

720 DATA 8 I255,,,, 

730 DATA %% 
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SVENSKA S I DAN 


Forrå gangen skrev vi att vi denna! 
gång skulle ta upp skillnader och 
eventuel la likheter mellan VPOKE 
och OUT. Detta tankte vi då gora 
av den enkla anledningen att vi 
någongång i fortsåttningen tankte 
plåga er lite med maskinspråk på 
den hår sidan (sidorna (ibland 
...)) . Det vi tidigare sa om att 

det inte skulle bli mycket svårare 
stammer alltså inte riktigt Vi 
ska forsoka forklara det mesta på 
ett sådant sått att ni forstår 
det som vi i fortsåttningen kommer 
att gå igenom. 

Nu over till OUT, IN, VPOKE och 
VPEEK. 

Vi borjar med ett enkelt exempel: 
Antag att du har skrivit in fol- 
jande rad i BASIC: 

10 VPOKE &H1810,1 

Du vi 11 nu gora om denna till 
någonting med OUT n,m 
Det forstå du måste låra dig år 
att sortera ut den mest och den 
minst signifikanta byten av adres¬ 
sen som i detta fail år &H1810. 
Den minst signifikanta byten år 
alltid den som står till hoger i 
adressen, dvs i detta fallet &H10. 
Den mest signifikanta byten år då, 
som de fiesta av er nu råknat ut! 
det teckenpar som står långst till 
vånster i adressen, i detta fail 
&H18. 

Varfor behover man nu veta detta? 

Studera foljande program : 

10 OUT &H81,&H10 

20 OUT &H81,&H18 OR &H40 

30 OUT &H80,&H01 




Ovanstående mycket kryptiska prog¬ 
ram ersåtter det mycket enkla 
VPOKE kommandot ovan. Mycket jobb 
for lite kan det tyckas. 

Det ståmmer så lange det gåiler 
BASIC. Siffrorna &H81 och &H80, år 
de portar,utgångar eller vågar’man 
anvånder sig av for att nå gra- 
fikprocessorn. 

Talet &H81 år den port som talar 
om for VDP:n vilken adress vi vi 11 
åndra innehållet i och &H80 år 
det tal som har hånd om informa¬ 
tionen som vi vi 11 lågga på vår 
adress. 

Det programmet som vi skrev ovan, 
består av två huvudfaser: 

1. Inmatning av adressen, vilket 
sker på raderna 10 och 20. OBS 1 
Lågg mårke till att den minst 
signifikanta byten MASTE matas in 
forst. Orsaken till att man på rad 
20 måste tillsåtta OR &H40 år den 
att man genom detta talar om att 
en adress matas in. Detta &H40 
måste alltid komma efter den mest 
signifikanta byten. 

2. Inmatning av data(information), 
som sker på rad 30. Hår år det 
bara att ange for port &H80 vilken 
data man vi 11 ha efter adressen. 
Anledningen till att vi tidigare 
var tvugna att de la på adressen 
beror helt enkelt på OUT inte kan 
hantera storre tal ån &HFF (255). 

For att ni riktigt ska forstå hur 
det fungerar så tar vi ett exempel 
till: 
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10 VPOKE &.H0125 , &H24 

Bllr alltså : 

10 OUT &H81,&H25 

20 OUT &H81,&H01 OR &H40 

30 OUT &H80,&H24 

Som test for att se om ni har 
forstått det hela kan ni ju ta 
några av de tidigare exemplen som 
innehåller VPOKE och oversåtta 
dessa VPOKE med OUT. Lyckas ni ska 
programmet fortfarande fungera 
efter era åndringar. 

Den fordel ni har av att kunna 
detta i BASIC, ar att ni genast 
kan oversatta detta till maskinsp- 
råk. Det ser då ut så hår for er 
som år lite nyfikna: 

LD A,H25 
OUT (H81),A 
LD A,H01 
OR H40 
OUT (H81), A 
LD A,H24 
OUT (H80),A 

Denna maskinspråkssnutt gor exakt 
samma sak som ovanstående BASIC 
exempel, men en hel del gånger 
snabbare. 

De exemplen vi har gett er hår 

idag år bara illustrativa exempel 
och inte gor så mycket i sig 

sjålv. Det år forst når ni såtter 
in det i ett sammanhang som det 
blir något av det. Hur det gors 
kommer vi att gå igenom i vår 

maskinspråksskola som vi startar 
med i någon av de foljande gånger- 
na. 

Eftersom att VPEEK och IN har 

ungefår samma likheter som VPOKE 
och OUT, så tar vi inte upp det 
hår men det kommer antagligen lite 
senare i vår maskinspråkskurs. 


Nåsta gång, vilken antagligen år 
den sista for vår grafikskola, 
tånkte vi gå in lite nårmare på 
detaljerna kring VDP:ns åtta in¬ 
terna register på er SVI- 318/328. 
Med dessa kan du bl.a annat styra 
vilken screen man vi 11 ha, vilken 
storlek på Spriten man ska vålja 
o. s . v . 

Det var vål allt vad vi hade att 
bjuda på for den hår gången. Lyck- 
lig låsning och må era ovånner 
kora ett program innehållande en 
evighetsloop, en evighetsloop, en 
evi.... 

Hej då! ! ! 


For er som bor någonstans i Malmo 
har vi ett litet extra erbjudånde 
att komma med. Vi tånkte nåmiigen 
starta en LAG (Lokal Anvåndar 
Grupp), dår man kan byta program— 
meringserfarenheter, program eller 
ideér. Ar du intresserad att del¬ 
taga så kan du ju ringa till Mag¬ 
nus eller Joakim (Våra telefonnum¬ 
mer står som vanligt på forstå 
sidan i denna fantastiska tid- 
ning). 

DS 
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01 SK AF JOHNNY 


Hej lfe/?/?er 

mad*s vi i gøn og dønnø gøn g ør 
døt mød øt totøjt hjømmøløvøt prg. 
som Jøg stiller til Jeres ridighød 
I . d * 9n til progrømmøt opøtod on dø g 
dø on øf mino godø bokondto Skjold 
fra V 0 JI 0 rlngødø. Høn brokkodo øig 
ovør øt dot ikkø vør til øt findø 
nogot på øllo øino dlskottor og det 
sømme problem høvdø Jeg selv. 

Nu snakkode vi lidt og vi blev Jo 
ønlgø om øt allø file oplysningerne 
lå på disketterne og øt de mitte nu 
kunne låses ind 1 Computeren og så 
gemmes som øn Dø tøf il. 

Som søgt så gjort Jøg studerede 1 
mine mengo bager og randt nogle 
kommandoer der kunne bruges til det 
formål og efter en uges tid vør prg 
kl&r til brug. det laser kun de fil 
navne som er pi disken og altså ej 
de slettede og desuden sætter lase 
prg nr. efter fi 1 navnet således øt 
nar man sager 1 datafilen får de 
relevante filér på skarmen eller 
printeren med disknummer, dermed er 
det også let at få editeret sine 
disketter. 

Nu mangler Jeg kun en ting det er 
ot kunne slette nogle poster i data 
filen idet hvis man tilføjer noget 
på en disk og laser den igen så op¬ 
stå der dobbeltkonfekt, hvis nogen 
ved hvordan man gør så lad mig det 
vide. 

Ring til Johnny B. tlf 06 826698 

Nu til de 2 programmer der er godt 
forsynet med rem satn Inger som i Jo 
gerne må undlade at Indtaste. 

HEJ 



10 , ******åøa*e*eeeeeeeeee i 
20 '* 

10 '+ DISKLÆSE PROGRAM AF 
40 'ø 

’0 '* JOHNNY B SILKEBORG 
60 •* 

70 ’* SYNTAXEN 1988 
80 '* 

90 • ***ø**e#eeeeeeøeeeeøee 4 
100 • 

110 CLEAR200, 8 HD 0 Q 0 'reserveret til 
maskinkode 

120 ONERRORGOTOlJO:GOTOl60 'fanger 
fejl 

110 IFERR-11THENGOTO140ELSEl 90 ’err 
H a fi^s not found denne rutine o 
pretter derfor diskfilen hvis den i 
kke er der på måldisken 
140 PRINT"OPRETTER DISKFILE.BIB":OP 
EN"DISKFILE. BIB"AS1: CLOSE: G0T0840 
110 PRINT"FEJL NR";ERR; "I LINIE"; ER 
L:END 'hvis andre fejl end nr 11 
160 CLS;POKE8HF247.0: 'hvis drive B 
skal vare default POKE8HF247.1 
170 'laseroutlne 

180 Y*0: PRINT" ISÆT DISKEN DER SKAL 
LÆSES " 

190 "PRINT" ->OG TRYK EN TAST<- 

200 ViF-INPUTF (1) 

210 PRINT 

220 PRINT:PRINT"( S JINGLE ELLER <D)0 

BBELT SIDED ? 

210 WF-INPUTF(l) 

240 IFWF- "S"ORWøb"s "THENGOTOéOO 's 
eotor 7 v/dobbelt - sectorl v/$lngl@ 
210 S*7:R*14 ’S-sector- start/R-seot 
or-slut 
260 PRINT 

270 PRINT:PRINT"INDTAST DISKNUMMER 
MED 1 CIFRE " 

280 PRINT "HVIS UNDER <100> INDSÆT N 
UL L ER 

290 DF-INPUTF(1) 'dlsknr indlases s 
om variabel 
100 PRINT 

110 PRINT:PRINT"LÆSER DISK NR. "DF 
120 M-VAL (LEFTF(DF. 1) ) ’M-vardl øf 

1 olffer 

110 N=VAL(MIDF(DF.2.1)) 'N-var dl øf 

2 olffer 

140 O-VAL (RIGHTF(DF.l)) 'O-var dl øf 
1 olffer 

110 M-M+&HI0 ’gmr olfferet lig med 
hexvardien 
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-K-JMMt- DISK AF JOHNNY B. 


360 N*N+8H30 • 
370 0*0+8H30 ' 


J80 Q*8H9000 'start adrassa navnabu 
ffar 

J90 AF*DSKIF(0, S) 'saotorlæsa komma 
ndo 0*drlva A /S-sactor OBS hvis ax 
driva A ar dafault og du vil lasa 
driva B skal dat vara (l.S) 

400 AD*PEEK(8HFJ31)+PEEK(3HFJ92)*23 
o startadrassa hvor saotoran lasas 
ind 1 oomputaran 

410 ’Lasarutlna for at taga fllnavn 
ud 8 bogst far . og 3 af tar - ovar 
far til navnabuffar 
420 A*0:B*7 


4 JO FORI*A TOB;Z*PEEK(AD+I) : POKEQ,Z: 
Q*Q+1 'navn 8 bogstavar 
440 NEXTtPOKEQ, BH2E:A*A+8:B*B+3:Q*Q 
+1 'punktum 

430 FORI*ATOB : Z*PEEK( AD+I) :POKEQ,Z: 
Q*Q+1 •navn 3 bogstavar 
460 NEXT 

470 POKEQ.8H20:Q*Q+1:POKEQ,3H28:Q*Q 
+1: POKEQ, Mi Q*Q+1; POKEQ. N: Q*Q+1 j POKE 
Q. 0:Q*Q+1!POKEQ.&H29:Q-Q+l 'dlsknum 
mar*3olfra 1 parantasar * aks:FIL-N 
AVN. EXT (001) 

480 A*A+24:B*B+29:IFA<311THENG0T043 
0ELSE490 ’hvar saotor ar på 311 byt 

490 S*S+1:IFS<RTHENG0T0390ELSE300 ' 
tal 1 ar saotor fram til slutsaotor 
300 PRINT:PRINT”SAVER TIL DISKFILE. 
818 PÅ BIB-DISKEN" 

310 POKE3HF247,1 'Skiftar til B dis 
kan 

320 G0T0610 

330 P0KE3HF247,0 ’Sklftar til A dis 
kon 


340 PRINT 

330 PRINT: PRINT'TÆRDIG" 

360 PRINT:PRINT"LÆSE FLERE DISKS J/ 
N " 


370 WF & INPUTF (1) 

380 IFWF*"J"ORWF*"j "THENGOTOl60 
390 PRINT: PRINT"TAK FOR NU": END 
600 S*3:R*12:GOTO260 ’vardlar hvis 
diskan ar slnglasldad 
610 AD*8H9000:1*0 ' læsarutlna navna 
buffar 

620 AOF*CHRF(PEEK(AD+I)):1*1+1 
630 A1F*CHRF(PEEK(AD+I)):1*1+1 
640 A2F*CHRF(PEEK(AD+I)):1*1+1 


630 A3F*CHRF(PEEK(AD+I)):1*1+1 
660 A4F*CHRF(PEEK(AD+I)):1*1+1 
670 A3F*CHRF(PEEK(AD+I)):1*1+1 
680 A6F*CHRF(PEEK(AD+I)):1*1+1 
690 A7F*CHRF(PEEK(AD+I)):1*1+1 
700 COF*CHRF(PEEK(AD+I)):1*1+1 
710 BOF*CHRF(PEEK(AD+I)):1*1+1 
720 BlF*CHRF(PEEK(AD+I)):1*1+1 
730 DOF*CHRF(PEEK(AD+I)):1*1+1 
740 DlF*CHRF(PEEK(AD+I)):1*1+1 
730 D2F*CHRF(PEEK(AD+I)) ; 1*1+1 
760 D3F*CHRF(PEEK(AD+I)),1*1+1 
770 D4F*CHRF(PEEK(AD+I)) ; 1*1+1 
780 D3F*CHRF(PEEK(AD+I)):1*1+1 
790 D6F*CHRF(PEEK(AD+I)):1*1+1 
800 Y*Y+1: G0SUB820 Hall ar an diskf 
11 fram 


810 IFY*112THENG0T033OEL SE620 'kun 
112 filar pi an disk 
820 IFAOF*CHRF(3H0)THENRETURNELSES3 
0 'sortarar Ikka oprattada fllstada 
r fra 


830 IFAOF*CHRF(3HE3)THENRETURNEL SE8 
40 'sortarar slattada filar fra 
840 OPEN"DISKFILE.BIB"FORAPPENDA SI 
'tllføjar at fllnavn til blb. 

830 PRINTF1. A0F+A1F+A2F+A3F+A4F+A3F 
+A6F+A7F+C0F+B0F+B1F+B2F+D0F+D1F+D2 
F+D3F+D4F+D3F+D6F '*fllnavn til dl 
skblb 

860 PRINTA0F+A1F+A2F+A3F+A4F+A3F+A6 

P+A7F+CQF+B0F+B1F+B2F+D0F+D1F+D2F+D 

3F+D4F+D3F+D6F;:PRINT" ’*filna 

vn til skærm 

870 CL OSE 

880 RETURN 


lo ‘+*+**a*aa*aa+aa*aaaaaaa*a 
20 '* * 

30 '+ DATALÆSE PROGRAN AF d 
40 ' d 0 

30 '* JOHNNY B SILKEBORG d 
60 '+ * 

70 'd SYNTAXEN 1988 d 
80 'd + 

90 ' addddaaadddddadadddddaaaa 
100 • 

110 CLEAR200,8H9000 ’rasarvarar til 
masklnkoda og gær plads til varlab 
lar 

120 POKE3HFCAB.1 'kun s tora bogstav 
ar 









-*•*-*-* DISK AF JOHNNY B . *.*.*.*. 



150 H-0: OPEN"DISKFILE. BIB"FORINPUTA 
SI ’h-antal filør 
JUO CLS 'løsøroutlnø 
1*0 PRINT" FIL-NAVN 

OT (XXX)" 

1&0 PRINT"IND TAST SOGEORD "s: LINE I 
NPUTAF 

170 X-l : S-LEN(AF) 

ISO IFLEFTF (AF,1)*" "THENX-X+1: S-S- 

1 

190 IFLEFTF (AF.2)*" "THENX-X+1:S-S 


200 IFLEFTF(AF, 5)-" "THENX-X+1: S* 

S-1 

210 IFLEFTF (AF .4)-" "THENX-X+1: S 

»S-l 

220 IFLEFTF (AF ,5)-" "THENX-X+1: 

S-S-l 

250 IFLEFTF(AF.6)-" "THENX-X+1 

:S-S-l 


240 IFLEFTF (AF. 7)-" 
1:S-S-l 

250 IFLEFTF (AF. 8)-" 
+1: S-S-l 

260 IFLEFTF (AF. 9)-" 
XH: S-S-l 


"THENX-X+ 

"THENX-X 

"THENX- 


2/0 IFLEFTF (AF .10) = " "THENX 

-X+l:S-S-l 

2SO IFLEFTF(AF.11)-" "THEN 

X-X+l:S-S-l 

290 IFLEFTF(AF.12)-" "THE 

NX-X+1:S-S-l 

500 IFLEFTF(AF.15)-" "TH 

ENX-X+1:S-S-l 

510 IFLEFTF(AF,14)-" "T 

HENX-X+1:S-S-l 

520 IFLEFTF (AF.15)-" 

THENX-X+1:S-S-l 
550 IFLEFTF(AF.16)-" 

"THENX-X+1:S-S-l 


540 LOCATE58.1:PRINT"SKRIVE PA (S)K 
ÆRN ELLER (P)RINTER 
550 ZF-INPUTF (1) 

560 PRINT:PRINT 

570 IFZF-"P"THENG0T0520 

580 INPUTF1. NF 

590 IFEOF(1)--1THEN450 'kun hvis da 
tafll slut ør EOF--i øllørs O 
400 IFNIDF(AF,X,S)-NIDF(NF. X. S)THEN 
G0T041OELSEGOTO580 'sammenlign ør sø 
g®ord mød døtø fil 
410 PRINTNF;:PRINT" "; 

420 H-H+l:GOTO580 'h-fundnø filør 
450 PRINT 

440 PRINT: PRINT "DER ER FUNDET ";:PR 
TNTH ; : PRINT"FIL ES " 


450 PRINT 

460 CLOSE: PRINT: PRINT"SOGE EFTER FL 
ERE J/N "; 

470 SF-INPUTF(1) 

480 IFSF-"J"THENGOTOl50 
490 POKE8HFCAB.O 'annulørør kun st 
orø bogstavør kommandoøn 
500 PRINT 

510 PRINT:PRINT"TAK FOR NU":GOTO570 
520 INPUTF1 ,NF 'til printør løsørut 
lnø 

550 IFEOF(1)--1THEN450 'som 590 

540 IFNIDF(AF.X.S)-NIDF(NF.X. S)THEN 
G0T0550EL SEG0T0520 
550 LPRINTNF; : LPRINT" "; 

560 H-H+l:G0T0520 'tøliør fundne f 

Hør 

570 END 



10 '++++ 00 * 0000000000000 +++++$## 

20 '# DISK LOADER KAN BRUGES ø 
50 '# FRIT! FOR SYNTAXEN 1988 # 

40 AF JOHNNY B GOOD ø 

50 ' #++#+++*++#+ 0 * 000000000000+0 
90 ' 

100 ONSTOPGOSUB570:STOPON:KEYOFF 
110 WIDTH40:COLORI5.4:FORI-226T0252 
:F0RJ-QT07:READXF:VPOKE2048+I08+J. V 
At("8b"+XF):NEXTJ:NEXTI 






DISK AF JOHNNY B. *-*-*-* 


120 X*12 : UIDTH 14 : F0RI*226T0292 
: PRINTCHR* (I) ; : NEXT: PRINT" SoftPRI 
NT 

190 FILES"*, LDR" 

140 PRINT:PRINT " VÆLG PRGI" 

ISO FOR I«21 TO 941 STEP 40 : Y1*VP 
EEK(I) : IF Yl*46 THEN Yl*INT(I/40) 
: GOTO 160 ELSE NEXT 
160 FOR I*21+Y1*40 TO 941 STEP 40 : 

Y2*VPEEK(I) : IF Y2<>46 THEN Y2-IN 
T(I/40) -1 : GOTO 170 ELSE NEXT 
170 Y*INT (Y1+(Y2 -Y1 )/2) 

180 LOCATE X.Y : PRINT"<~" 

190 Kt*INKEY$ 

200 IF K**"" THEN 190 

210 IF ASC(Kt)*Sl THEN GOTO 290 

220 IF ASC(K*)=90 THEN GOTO 290 ELS 

E IF K**CHRt(19) THEN GOSUB 270:BL0 

AD"a:"-hPGf,R ELSE 190 

290 LOCATEX, Y : PRINT" " : Y*Y-1 : 

IF Y<Y1 THEN Y=Y2 
240 GOTO 180 

290 LOCATEX. Y ; PRINT" " : Y*Y+1 : 

IF Y>Y2 THEN Y=Y1 
260 GOTO 180 
270 FOR 1*0 TO 11 

280 PGø=PGt+CHRF(VPEEK(40*Y+19+I)) 
290 NEXT I : UIDTH 40 : RETURN 
900 DATA00011100. 00011100, 00110100, 
00110100 ,01100000,01100000,11000000 
.11000000 

910 DATAQ001110Q. 00011100,10110100, 
10110100,11100000,11100000,01000000 
,01000000 

920 DATAOOOOOOOO, 00000100,10001100, 
10000100 ,11000000,11000000. 01111100 
.01111100 

990 DATA11111100,11111100.10000000, 
11111000 ,11111100.00001100,11111100 
.11111000 

940 DATA11110000.11111000. 00001100, 
00000100 .00000100.10001100. 00011000 
, 00110000 

990 DATA00011000, 00110000, 01100000, 
11000000 .11000000,01100000.00110000 
,00011000 

960 DATAOOOOOOOO.00000000,00000000, 
00000000 ,00000000,00000000.00000000 
.00000000 

970 HIDTH40:KEYON:PRINT"rirZ<JUT$ pra 
sent sPRINT"NSX DISC BASIC version 
1,0":PRINTUSING"####W Bytes free"; 
(FRE(0)+1660) 


DISKETTETIPS 
3K. EKSTRA 

Nogle diskettestationer formatterer 
ikke helt korrekt f. eks Sony HBD50 
det kan du undersøge med det lille 
program jeg bringer her. 

Du kan rolig buge den på en disk 
med Data idet intet bliver slettet 
Nu til programmet. 

10 PRINTDSKF(0) 

20 AD*PEEK(&HF351)+256*PEEK(&HF352) 
30 C$-DSKI$(0,2) 

40 IFPEEK(AD)< >2480RPEEK(AS+1)< >255 
ORPEEK(AD+2)< >255THEN PRINT"her er 
intet at henteGOT0100 
50 POKEAD,0:POKEAD+1,0:POKEAD+2,0 
60 DSKO$0,2 
70 DSKO$0,4 

80 PRINT"nu har vi + 3Kb extra" 

90 PRINTDSKF(0) 

100 END 

Hvis din disk station hører til dem 
der laver denne fejl kan du med det 
lille program hente 3 K tilbage til 
eget brug. 

Tipset er fundet i MSX Floppybuch 
Data Becker som er en bog der virke 
lig kan anbefales for diskejere. 




* " *•»•*• LØST 8c RAST VED JOHNNY *--*--*-* 


L8ST St FAST 
VED 


Hos HSH An Der llMflut 
4715 Davensberg GerMany 
tlf oo9 49 2593 6168 

Kan Man i øjeblikket Købe en extra 
diskstation "Misui" billigt prisen 
er kun DM 189 ^ — 

Stationen er til indbygning og kan 
let bruges som løst drive idet kun 
bunden er åben. Man kan lave/købe 
en bund selv. 

Af strøM skal der bruges 5 og 12 
Volt som Man let kan "hugge" fra 
sin coMputer eller diskdrive, det 
har jeg selv gjort på Min Sony. 

Hvis ikke dit drive eller coMputer 
har tilslutning for extra station 
så kan Man hos HSH købe et inter¬ 
face til di skdi'i ves indsættes i en 
slotport det kan styre op til 8 stk 
diskstationer. 

Prisen ved jeg dog ikke endnu. 

Skal nogen have sig en super SONY 
så er det nu sidste udkald idet HSH 
kun har, ja i skrivende stund ca 8o 
stk tilbage af de oprindelige 2ooo 

Næste tilbud fra HSH på MSX II coM¬ 
puter e bliver forModentlig Philips 
MNS 828o den store Med 2 disks og 
Video Digitizer, Men den bliver nok 
en del dyrere en Sony' en. 

Dog er HSH ved at snakke Med et fir 
Ma om at freMsti1 le en MSX II saMMe 
størrelse som Sony uden disk altså 
helt uden udstyr og så blot Med ud¬ 
tag til det hele. En sådan Maskine 

kan forModentlig sælges for ca. 

DM 3 o o ji — 

Er nogen interesseret så kontakter 




du blot Mig. 

Denne artikel er skrevet og opsat 
Med et prograM der hedder DynaMie 
Publisher et prograM der kun kan 
køre på MSX II Maskiner. 

Det er et ko Mp let Trykkeri saMt op¬ 
sætnings prograM Meget anvanceret - 
og flot. 

Du hun vælge og londe 
f Of s h e 1 lige s k r ijfttijper 

Du kan også loade tegninger saMt 
videobilleder og alt tekst tegning 
er saMt billeder kan forstørres og 
forMindskes saMt spejlvendes ja du 
kan næsten gøre hvad du lyster Med 
dette prograM. 

Hos HSH koster Dynanic DM 198,- 



ISius’ iroam bil i)tig tmxt om 
fuBl&tøt titts Blot 



OOHNNY B GOOD 


SILKEBORG - DANMARK 
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S SPRITES 16 FAVER 


SVI 738 * SORT de HVID 


8 SPRITES I 
*6 FARVER 

1 ’ Program s DEMO-1 

2 'Maskine : SVI-738 

3 'Forklaring 8 sprites på samme 

4 ’ linie og i 16 farver 

® ’ kan opnås på 738'en 

6 ' Se her hvordan ! 

7 'By : Henrik G. 

5 ’ (c) Syntax'en 1988 

9 ' 

10 DEFINTA-Z 

20 CQLOR 15,1,1 
30 BASE (13) =&H 1E00 
40 A=RND(-TIME) 

50 SCREEN 2,2 
60 DATA 0000001-110000000 
70 DATA 0000111111000000 
80 DATA 0000011111100000 
90 DATA 0000011111100000 - 
100 DATA 0000001111110000 
110 DATA 0000011111100000 
120 DATA 0000001111110000 
130 DATA 0000011111100000 
140 DATA 0000001111110000 
150 DATA 0000011111100000 
160 DATA 0000000110000000 
170 DATA 0000000110000000 
ISO DATA OlllllllllliHio 
190 DATA OOllllllllllim 
200 DATA 0001000000000100 
210 DATA 0111100000011110 
220 ' 

230 'Definer Sprite monster som 
240 'Normalt. 

250 ' 

260 A$="":S$='*" 

270 F0RA=0 TO 15:READD$:A$=A$+CHR$ < 
VAL("&b"+LEFT$<D$,8))):S$=S$+CHR$(V 
AL <"&B m +RIGHT$ (D$,8)))•NEXT 
280 SPRITE$(0)=A$+S$ 

290 ' 

300 ' Jeg PUT'er de 32 sprites 
310 ’ som normalt. Bemårk 8/linie 
320 ' 

330 FOR S=0 TO 31 

340 PUTSPRITES,((SM0D8)*17+32, <S\8) 
*32),6,0:NEXT 
350 ' 

360 ’ Ved tastetryk skiftes mode 
370 ' 

380 Z$=INPUT$(1):VDP <0)=4:VDP(5)=63 
390 ’ 

400 ' Her stilles SPRITE Mode 2's 


410 

420 


farverne 


430 F0RA=BASE (13)-&H200 TO BASE (13) 
-IsVPOKEA,(A/3) M0D14+2:NEXT 
440 ’ 

450 ' Ved tastetryk skiftes mode 
460 ' 

470 Z$=INPUT$(1): VDP (0)=2: VDP (5)=60 
480 Z$=INPUT$(1): VDP (0)=4: VDP (5)=63 
490 GOTO 470 



SORT Ir HVID 


10 

12 

13 

14 

15 

16 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

36 

37 

38 

39 
100 
110 
120 
130 
140 


SORT & HVID 
BY JOHNNY B MUSIK ! 

SYNTAXEN 

1988 

*********************, 

01962 BYTES 

MINIMUMSBEHOV 

DISKSTATION 

TASTATUR 


DATA 3E,F1,21,00,20,01,00,18 
DATA CD,56,00,09 
FORI-&HDAOO TO &HDA0B 
READ A$:POKEI,VAL("&H"+A$) 
NEXT I 
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*"*-*"* SORT ^ HVID * GRAFIK FOR MSX ■**■** 


150 SCREENO:WIDTH40:LOCATE,,0:C0L0R4 
,4,1:KEYOFF 

160 PRINT "************************* 
***************". 

170 PRINT "*** ' BLACK / WHI 

TE ***" . 

180 PRINT "************************* 
*************** 

190 LOCATE 0,6 

200 PRINT "Dette Program farver dine 
skasrm billederom til et Sort / Hvid 
billede så du f.exkan se hvordan et 
normalt printerbi 1 ledevi 1 komme til 
at se ud. PRINT 

210 PRINT "Indtast nu filnavnet på d 
et ønskede grafik billede." 

220 LOCATE 14,16 .-PRINT ". 

230 C0L0R15 

240 LOCATE 14,16 .-LINE INPUT A$ 

250 ON ERROR GOTO 340 
260 DEFUSR-&HDA00 
270 SCREEN2 
280 BLOAD A$ , S 
290 X-USR(O) 

300 A$-INKEY$:IF A$-""THEN 300 

310 IF A$< >" " THEN RUN 

320 IF PEEK(&HDA01)-&HF1 THEN POKE & 

HDA01,&H1F:COLOR,,15 ELSE POKE &HDA0 

1,&HF1:COLOR,,1 

330 GOTO 290 

340 SCREENO:LOCATE 6,12:PRINT "Filen 
er ikke på Disketten" 

350 FORI-1TO 1000:NEXT:RUN 



GRAFIK TIL MSX 


70 

'*************************** 

72 

'* 

* 

73 

' * 

G R A F 1 k * 

74 

' * 

* 

75 

' * 

Program for D7SX * 

76 

' * 

* 

77 

' * 

Udva i g i- af: * 

78 

- * 

Johnny B. Silkeborg * 

79 

' * 

* 

20 

' * 

God fornøjelse * 

27 

- * 

* 

22 

' * 

* 

23 

24 

'*************************** 


7 00 SCR££NO:k£yOFF.-CL£AR 

770 0NERR0RG0T0 320 

720 OA/k£yGOSUB410:k£y<7 ) 0 N 

1 30 CLS : PR I A/T"0=SLUT" : I NPUT" I N DG I V 

ET TAL (0-7)";P 

7 40 IFP=0TW£N37 0 

750 IFP>70RP<7THEW7 30 

7 GO COLOR. 7 . 7 .• SCREEN2,0 

7 70 ONSTOPGOSUB4 7 0 : ST0P0N 

7 SO BATA 255.255.255,255.255.255.25 

5,255 

790 FORi=7T08 

200 REABA:A«=A«+CWR$(A) 

270 A/EXT I 

220 SPRITE«(7)=A« 

230 R=RNB(-TII7)£) 

240 F0RB=0T031 

250 C=INT(RNB(1)*255+7) 

260 B=/WT(RA/B(7 )*192 + 1) 

270 £=/WT(RNB(7)*75+7) 

280 ON PGOTO 350,3G0,340,370,380,39 

0.400 

290 NEXTB 

300 GOTO 240 

37 0 kEyON: COLOR 7 5,4 .7.-ENB 
320 COLOR 7 5,4, 7 .• PLAy "AC" : SCREENO .• P 
RINT"F£TL:"£RR;"I BEL";ERL 
330 k£yON:£NB 

340 PUTSPR/TEB. < C,B ) ,£,1 .-GOTO 290 
350 LINE(C.B)-CB.C),£:GOTO 290 
3G0 C IRCLE(C.B).E:GOTO 290 
370 PUTSPR ITEB, (C,B) , £,7 :LIN£(C.B)- 
CB , C ) , E : GOTO 290 

380 PUTSPR ITEB, (C.B),£,7 ;CIRCLE(C,B 
) , E .• GOTO 290 

390 CIRCLE(C.B),£:LINE(C,B)-(B.C).£ 
.■GOTO 290 

400 PUTSPR I TEB. (C.B) ,E, 7 .-LINECC.B)- 
(B,C),£:C IRCLE(C,B),£:GOTO 290 
470 RUN 








Éssmblatorfor IBiHomatihla persendater 
salges, i r 25 mginalåskett. 



i Man Serg,w 
Broklmgatan # 

Hi/ si impimmm 
ivmm 



INDMELDELSESBLANKET 


Fmw: __ 

efternavn: __ 

ADRESSE: __ 

TLFNR.: __ 

POSTNR. ♦BY:_ 

ALDER: _ 

MASKINE: __ 

DIV. UDSTYR: _ 

INTERESSE GKRÅDE: 









SVI-105 Tegnebord + pr og. 

500 

, - Kr 

SVI-601 Super expander 



SVI-802 Centronic interface 

800 

Kr 

SVI-801 Disk controler 



SVI-902 256 K disk 



70 disk i boks, med prog. + 

spil 


Rense disk 

1500, 

,- Kr 

Diverse bøger fra 

50, 

Kr 

Orgi. spil på bånd fra 

15, 

Kr 

Cartriges : 



JustWrite jr 

150, 

- Kr 

Music Mentor 

100, 

- Kr 

Flipper Slipper 

100, 

- Kr 

Super Cross Force 

100, 

- Kr , 

Frantic Freddy 

100, 

- Kr | 


Alt er i orginal emballage 

Sælges evt. samlet for 3500,- Kr 

Henvendelse : 

Uffe Bager Hansen 
Hørmarken 4 
8362 Hørning 
Tlf : 06-922497 


UDSALG 


SÆLGES 

3 Btk. DATA-CARTRIDGE 4K for SONY 
NSX-computer selges for Nkr.230,- 
samlet eller Nkr.lOO,- pr. stk. 
j pluss postoppkrav. 

Pris i Norge er kr. 250,- pr. stk. 
De er alle helt nye og ikke 
brukt. Ligger i originaleballage. 

Henvendelse: 

Tore Brønnum 
Nedre Silkestrå 6 
0375 01 so 3 
Tlf.: 02-520956 


_ fHT- fil, J'L't _ KU!* KUP SLIP KLIP KLIP KLIP 
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*--*--*-*■ SVI BXB -*-*--*-*- 


Liste af programtitler 
i SVIBIB : 


© '2? □ G> □ GJ 


SVI BIB er KUN til SVI 318-328 

SVIBIBS’s POST GIRONR. er: 

4077385 

Bestilling af programmer gøres på 
postgiro hvorpå der skrives hvilke 


programmer du. ønsker, sarnt om du vil 
have disk eller bånd. 

Husk også at skrive din egen 
tydeligt helst' BL QKBQGSTAVER r 


PRISER- 

Bånd ' - 25kr 

5.25" Disk - 25kr 

Pris pr. program - 10kr 

Pris pr. programpakke - 15kr 

Udlistning af program - 5kr 

Programpakkerne er lavet på den 
måde at man loader alle 
programmerne ind på en gang , og 
kan så vælge ved hjælp af en meny 
hvilket p r o g r am rn a n ø n s k e r a t kø r e 
derefter »kan man stoppe oq vende 
tilbage til rnenyen ovs.ovs. 

HUSK når I bestiller programpakker 
at skrive hvilken katarogi I 
ønsker det pågældende nr. fra. 

Programmerne bestilles hos: 

Per Underlien 
Rytterhusene 44 
2620 Albertslund 
6IR0NR. 4077385 

Programmer der ønskes optaget i ' 
3VIBIB sker på samme adr. 

Det er jo sådan at vi NU GIVER 
2 bånd eller 
5 5.25" disk 

For- de programmer der optages- i 
SVI BIB. 


Nyttige programmer : 

Database , Editor , Hushold ,Matte, 
Mc scroll , Ramdis , Rentereg , 

Rulleteks , Screen Rig , Sdump,mc, 
Sorter , Sprite ed , Sprog , 

Tegner , Talkback , Taperut , Tips 
Kalender , Supertegn , Periode 


Aladd in , Bovla, Bjerg, Darts, 
Death, Diktator, Frans, Hell, 
Kai aha. Skyd nu, Oil 


Spil pakker : 


Male , Pyramide , Labyrant 
Pusle , Attack , Roulette 
Flight , Sur , War 
Mons , Hopper , Star 
Moon , Myre , Slange 
Robot , Pengo , Snowbal1 
Danmark , Frogger 
Skyttepro , Lernona 


Musik pakker : 


Rock musik 9 numre 
Rock musik 9 numre 
Musik 9 numre 

Lyd Kim , Sound Kim , Orgel 


Andet pakker 


Rio , Lys , Ghost , Børge 
Symtri , Grafik 



Kun til disk : | | " wnilw 

Budgetpro. , Dbase 1 no.i , Grafe 
T egnepro. , Telefonpro. 
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*-*-*--*- K AL AHA -H-K-H--*- 


KALAHA 


5 CLEAR5000 

10 0NST0PG0SUB1290:ST0P0N 
15 REM - 


20 REM 

25 Rtn K - A - L - A 

30 REM 
35 REM 

40 REM Lars B. Olsen 

45 REM Orehoved 

50 REM Maj 1988 

55 REM - 


60 CQM=0:SA=0:SB=0 
65 DIMA(6):DIMB<6) 

70 LETY=1:CLICKQFF 

75 COLOR 11,8,9:SCREENO,O:LOCATE,, 
O 

80 letasum=o:letbsum=o 

85 LETU=0:LETX=0 

90 G0SUB570:’danske bogstaver 

95 GOTO 625*. ’ spi 1 le-form 

100 LINE <48,51)-(195,63), 1, BF 

105 PUTSPRITE11,(111,54),,0 

110 COLOR 10: L0CATE50,55: PRINT'' Sp 

i lier A ambo nr. "J:Iå=INPUT$<1):1 = 

UAL<I$)IPRINTI 

115 IFI<1QRI>6THEN GOTO 110 

120 IFA(I)=0THENG0SUB190: GOTO 100 

125 LETX=A<I):LETC=0 

130 LETA<I> =0 

135 ONIGOTO 410,435,460,485,510,53 
5 

140 LINE(48,51)-<195,63),1,BF 

145 PUTSPRITE11,<111,54),,0 

150 COLOR 10:L0CATE50.55:PRINT" S 

piller B ambo nr. " : I$=INPUT$ (1) : I 

=VAL(I$)IPRINTI 

155 IFI<10RI>6THEN GOTO 150 

160 IFB <I)=0THEMG03UB190: GOTO 140 

165 LETX=B(I) 

170 LETC = 1:LETB <I)=0 

175 0NIG0T0230,255,280,305,330,355 

180 GOTO 110 

185 LINE < 48,51)-<195,63),1,BF 

190 LINE(48,51)-<195,63),1,BF 

195 L0CATE55,55:PRINT"TOM AMBO":FOR 

0=OT0900:NEXT:LINE<48,51)-<195,63), 

1,BF:RETURN 

200 REM 

205 IFX=iANDB<1)=0ANDC=1THENLETBSU 

M=BSUM+X+A < 6):LETX=0:LET A < 6)=0 

210 IFX=0THEN GOTO 875 

215 LETB <1)=B<1)+X/X 

220 LETX=X-1 

225 REM 

230 IFX=1ANDB < 2)=0ANDC = 1THENLETBSU 

M=BSUM+X+A<5):LETX=0:LETA<5)=0 

235 IFX=OTHEN GOTO 875 

240 LETB(2)=B <2)+X/X 

245 LETX=X-1 

250 REM 

255 IFX=1ANDB(3)=0ANDC=1THENLETBSU 

M=BSUM+X+A<4):LETX=0:LETA(4)=0 

260 IFX=OTHEN GOTO 875 

265 LETB < 3)=B < 3)+X/X 

270 LETX=X-1 

275 REM 

280 IFX=1ANDB < 4)*OANDC=1THENLETBSU 
M«BSUM+X +A < 3):LETX=0:LETA < 3)=0 
285 IFX*=OTHEN GOTO 875 
290 LETB(4)=B <4)+X/X 
295 LETX=X-1 

300 REM +-+-+-+-+-+-+-+-+-+-+-+-+- 


305 IFX=1ANDB < 5)=0ANDC=iTHENLETBSU 

M=BSUM+X+A(2):LETX=0:LETA(2)=0 

310 IFX=OTHEN GOTO 875 

315 LETB <5)=B <5)+X/X 

320 LETX=X-1 

325 REM 

330 IFX=1ANDB <6)=0ANDC=1THENLETBSU 

M=BSUM+X+A(1):LETX=0:LETA<1)=0 

335 IFX=0THEN GOTO 875 

340 LETB<6)=B(6)+X/X 

345 LETX=X-1 

350 REM 

355 IFX=iANDC=1THENLETBSUM=BSUM+X: 

LETX=0:LETC=0 

360 IFX=OTHEN GOTO 875 

365 IFC=OTHEN GOTO 385 

370 LETBSUM=BSUM+X/X 

375 LETX=X-1 

380 REM +-+-+-+-+-+-+-+-+-+-+-+-+- 
385 IFX=iANDA(1)=0ANDC=0THENLETASU 
M=ASUM+X+B<6):LETX=0ILETB(6)=0 
390 IFX=OTHEN GOTO 875 
395 LETA(1)=A(1)+X/X 
400 LETX=X-1 

405 REM +-+-+-+-+-+-+-+-+-+-+-+-+- 

410 IFX=1 ANDA < 2)=OANDC=OTHENLETASUM 

=ASUM + X + B(5):LETX=0:LETB <5)=0 

415 IFX=0THEN GOTO 875 

420 LETA(2)=A<2)+X/X 

425 LETX=X-1 

430 REM 

435 IFX=1ANDA(3)=0ANDC=0THENLETASUM 
=ASUM+X + B < 4):LETX=0:LETB < 4)=0 
440 IFX=OTHEN GOTO 875 
445 LETA<3)=A<3)+X/X 
450 LETX=X-1 

455 REM +-+-+-+-+-+-+-+-+-+-+-+-+- 

460 IFX=1ANDA <4)=OANDC=OTHENLETASUM 

=ASUM+X+B<3):LETX=0:LETB<3)=0 

465 IFX=OTHEN GOTO 875 

470 LETA(4)=A(4)+X/X 

475 LETX=X-1 

480 REM +-+-+-+-+-+-+-+-+-+-+-+-+- 

485 IFX=1ANDA <5)=OANDC=OTHENLETASUM 

=ASUM+X+B(2):LETX=0:LETB<2)=0 

490 IFX=OTHEN GOTO 875 

495 LETA < 5)=A(5)+X/X 

500 LETX=X-1 

505 REM +-+-+-+-+-+-+-+-+-+-+-+-+- 

510 IFX=1ANDA < 6)=0ANDC=0THENLETASUM 

=ASUM+X + B(1):LETX=0:LETB <1)=0 

515 IFX=OTHEN GOTO 875 

520 LETA < 6)=A(6)+X/X 

525 LETX=X-1 

530 REM +-+-+-+-+-+-+-+-+-+-+-+-+- 

535 IFX=1ANDC=OTHENLETASUM=ASUM+X:L 

ETX=0:LETC=1 

540 IFX=OTHEN GOTO 875 

545 IFC=1THEN GOTO 205 

550 LETASUM=ASUM + X/X 

555 LETX=X-1 

560 GOTO 205 

565 REM+-+-+-+-+-+-+-+-+-+-+-+-+-+- 
+ - 

570 REM danske bogstaver 
575 RESTORE 
580 SCREEN1,O 

585 DATA120,160,160,240,160,160,184 

^90 DATAS,112,152,168,168,200,112, 1 
28 ' ' 

595 DATA32.0,32,80,136,248,136, 

600 DATAO,O,208,40,120,160,216, 

605 DATA32,0,112,8,120,136,120, 

610 DATAO,8,112,152,168,200,112,128 
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615 REST0RE600 
620 RETURN 

625 REM VALG AF SPILLE METODE 
630 G0SUB1205 

635 IFSA+SB+C0=0THEN640ELSE GOTO 64 

640 L0CATE48,68:PRINT"Onskes spille 
regler (j/n) 6 

645 L0CATE48.80:PRINT"Spi lier A ha 
r ";SA;“ point" 

650 L0CATE48,92:PRINT"Spi1 ler B ha 
r ";SB;" point * 

655 L0CATE48,104:PRINT"Computer ha 
r ";CO;" point“:LOCATE,64 
660 IFSA+SB+C0=0THEN665ELSEF0RT=0T0 
600: NEXT*. Ns6="N" : GOTO 670 
665 N*=INKEY$ 

670 IFN$=""THEN665 
675 IFN«=“n"ORN*="N"THEN GOTO 795 
680 F0RJ=0T07:READH:VÆ=V$+CHR$(H):S 
PRITES(1)=V$:NEXT 

685 FORJ=0T07:READH:SS=SS+CHRS <H>:S 

prites(3)=ss:next 

690 F0RJ=0T07:READH:KS=KS+CHRS(H):S 

PRITES(2)=KS:NEXT 

695 CLS:L0CATE4,10:PRINT" 

-KALAHA- 

spilles at 2 personer (A 8< B) ell 
er computer (Ai mod en spille 

r (B)-. Der v lges 3-6 kug 

ler i hver at de" 

700 PUTSPRITE1,(54,33),10,1 
705 PRINT" sm nuller (Ambo)-Det 
g Ider om at samle -flest k 

ugler i de store huller (Kala 

• ha)"; 

710 PUTSPRITE2,(36,41),10.3 
715 PUTSPRITE3,(162,41),10,1 
720 PRINT". Man v lger Åmbo nr.(1-6 
>, ender sidste kugle i ens 

egen Kalaha giver det en extr 

a tur ender sidste kugle i e 

n tom Ambo p "; 

725 PUTSPRIYE4.(114,57),10,1 
730 PUTSPRITE10,(isl,81J,l6,3 
735 PRINT"egen side til- 1 gge 

s modspillerens Ambo overfor,i 
ens egen Kalaha.“ 

740 PUTSPRITE5,(30,89),10,1 
745 PRINT" Spillet slutter, n r 
en banehalvdel er tom.Tilove 

rsblevne kugler hos mod- parte 

n till qges hans Kalaha. 

Spi1leren med de "; 

750 PUTSPRITE6, <132,105),10,3 
755 PUTSPRITE7 (90,l21),Io,i 
760 PRINT"flaste kugler har 
vundet . 

God torn jelse" 
765 PUTSPRITE8,(90,153),10,2 
770 PRINT:PRINT:PRiNT" Tryk e 

n tast tor at komme videre." 

775 AS=INKEYS 

780 IFAS< >""THENGOTO 785:ELSE GOTO 
775 

785 G0SUB1205 
790 GOTO 800 

795 LINE(40,50)-(200,150),8,BF 

800 L0CATE57,54:PRINT"Indtast spil 

letorm" 

805 L0CATE57.66:PRINT"2 spillere . 
.. tast 0" 

810 L0CATE57,78:PRINT"Mod computer 
(let)... tast 1" 


815 L0CATE57,90:PRINT"Mod computer 
(sv r).. tast 2" 

820 REST0RE600: F0RG=0T07: READH*. V*=V 
*+CHRS(H):next:sprite*(1)=v*T 
825 PUTSPRITE1.(153,89).10,1 
830 L0CATE57,112:PRiNT"épii letorm 

< 1 >: spm=vSl (SP*>: pri 

NTSPM 

835 IFSPM< 00RSPM>2THEN830 

840 L0CATE57,124:PRINT"Indtast ant 

al kugler (3-6)" 

845 L0CATE57,136:PRINT"Antal kugler 
:KUG*=iNfkrr*<i) :kug=val (KUgI) :p 
RINTKUG:F0RP=1T0200:NEXT 
850 IFKUG<30RKUG>6THEN GOTO 845 
^ 5 k,E95 N== 1106: LETA <N) =KUG: LETB (N) =K 
UG:NEXT 

860 IFSPM=OTHENLINE(40,50)-(240,170 
).8,BF:PUTSPRITE1,(153,89),8,0:&OSU 
Bi245 :gosub89o: g6to lio »°» U " 19U * U 
865 IFSPM=10RSPM=2THENLINE(40,50)-( 
2 ^° A kl?,I i 8 » BF: PUTSPRITE1 , (153! 89) , 8 
,0:G0SUB1245:G0SUB890: g&to iéo 
870 GOTO 625 

875 REM***** udskrivning at tal *** 

880 I f B (1 ] =0 ANDB (2) =0ANDB (3) =0ANDB ( 
(5)=0ANDB(6)=0 TH EN GOTO 965 
f l f A <i>=0ANDA< 2 >=0ANDA(3)=0ANDA( 
4)=0ANDA(5)=0ANDA(6)=0THEN GOTO 100 

890 LETM=0 

895 F0RN=208T048STEP-32 

900 LETM=M+1:BEEP:LINE(N-9,90)-(N+8 

l 100)^8,BF: LOCATEN-10,92:PRINTA(M) 

905 BEEP:LINE(50,120)-(74,135),8,BF 
:L0CATE50.125:PRlNTASUM:LÉTM=0 
910 F0RN=48T0208STEP32 
fif LETM=M+ 1: BEEP:L!NE(N-9,155)-(N+ 
Ml*NE xIn’ BF: L0CATEN ~ 10 ’157:PRINTB( 
920 BEEP:LINE(180,120)-(204,135),8, 
BF:L0CATE180,125:PRINTBSUM 
925 L0CATE5.20 

930 IFU=1THENL0CATE100.115: COLOR 1 
f£5i? NTU ?!? s , k £ s nyt" :L0CATE110, 125:PR 
INT'spi 1 " : L0CATÉ85, lSS^RINT* tryk 
en tast."ELSE GOTO 940 
935 A$=INKEY$:IFA$=""THEN GOTO 935E 
LSE GOTO 70 

940 IFY=1THENLETY=0:RETURN 

945 IFSPM=1ANDC=1THEN GOTO 1040 

950 IFSPM=2ANDC=1 THEN GOTO 1095 

955 IFC=1THEN GOTO 100 

960 IFC=0THEN GOTO 140 

965 LETASUM=ASUM+A(1)+A(2)+A(3)+A(4 

)+A(5)+A(6) 

970 F0RN=1T06:LETA(N)=0:NEXTN 
975 IFASUM >BSUMTHEN GOTO 1020 
980 LINE(48,51)-(195,63),14,BF 
985 PUTSPRITE11,(lll!54) .0 
990 COLOR 1:L0CATE5O,55:PRINT"Spi1 
ler B vinder":SB=SB+1 
995 LETU=1 
1000 GOTO 890 

1005 LETBSUM=BSUM+B(1)+B(2)+B(3)+B( 
4) +B(5)+B(6) 

1010 F0RN=1T06:LETB(N)=0:NEXTN 
1015 IFBSUM >ASUMTHEN GOTO 980 
1020 IFSPM=0THENPUTSPRITE11,(111,54 
),,0:LINE <48,51)-(195,63),14.BF: CO 
LOR 1:L0CATE50,55:PRINT"Spilier A v 
inder“:SA=SA+l 

1025 IFSPM=10RSPM=2THENLINE(48,51)- 
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(195,63),14,BF:PUTSPRITE11,(111,54) 
,,O:COLOR1:L0CATE60,55:PRINT u CGMPUT 
ER VINDER":CO=CO+l 
1030 LETU=1 
1035 GOTO 890 

1040 REM*** COMPUTER SPILLER SOM A 
1045 LET1=1NT(RND(1)*6)+1 
1050 IFA(I)=OTHEN GOTO 1045 
1055 LINE(48,51)-(195,63),11,BF 
1060 PUTSPRITE11,(111Js4)! .0* 

1065 COLOR 1:L0CATE50,55:PRINT-CDm 
puter v laer ambo";l 
1070 SPRITE*(1)=CHR*(O)+CHR*(O)+CHR 
4(208)+CHR*(40)+CHR*(120)+CHR*(160) 
+CHR*(216)+CHR*<0> 

1075 PUTSPRITE11,(111,54),1,1 
1080 FORP=*1T0100: NEXTP 
1085 COLOR 10 
1090 GOTO 120 

1095 IFA(6)=1THENLETI=6:GOTO 1055 
1100 IFA(5)=2THENLETI=5:GOTO 1055 
1105 IFA (4) as 3THENLETI=4: GOTO 1055 
1110 IFA (3) = s 4THENLETI=3: GOTO 1055 
1115 IFA(2)=5THENLETI=2:GOTO 1055 
1120 IFA(l)=6THENLETI=l:GOTO 1055 
1125 IFA(1)olANDA(2)=OTHENLETI-1:GO 
TO 1055 

1130 IFA(1)=2ANDA(3)=OTHENLETI=1:GO 
TO 1055 

1135 IFA(1)=3ANDA(4)=OTHENLETI=1:GO 
TO 1055 

1140 IFA(1)=4ANDA(5)=0THENLETI=1:GO 
TO 1055 

1145 IFA(1)=5ANDA(6)=OTHENLETI=1:GO 
TO 1055 

1150 IFA(2)=1ANDA(3)=OTHENLETI=2:GO 
TO 1055 

1155 IFA(2)=2ANDA <4)=0THENLETI=2:GO 
TO 1055 

1160 IFA(2)=3ANDA(5)=0THENLETI=2:GO 
TO 1055 

1165 IFA < 2)=4ANDA(6)=OTHENLETI=2:GO 
TO 1055 

1170 IFA(3)=1ANDA(4)=0THENLETI=3:GO 
TO 1055 

1175 IFA (3) =2ANDA (5) =0THENLETI= S 3: GO 
TO 1055 

1180 IFA(3)=3ANDA(6)=0THENLETI=3:GO 
TO 1055 

1185 IFA(4) = 1ANDA <5)=0THENLETI=4:GO 
TO 1055 

1190 IFA(4)=2ANDA(6)-OTHENLETI=4:GO 
TO 1055 

1195 IFA(5)=1ANDA(6)=OTHENLETI=5:GO 

TO 1055 

1200 G0T01040 

1205 REM 

1210 C0L0R14:SCREEN1 

1215 PRINT:PRINTSPC(10)CHR*(165)SPC 

(7)CHR*(165)SPC(5)CHR*(165) 

1220 PRINTSPC(10)CHR*(165)SPC(1)CHR 
4(184)SPC(2)CHR*(179)CHR*(179)CHR*( 

184) CHR* (165) SPC (2) CHR* < 179 ) CHR* (1.7 
9)CHR*(184)CHR*(165)SPC(4)CHR*(179) 
CHR*(179)CHR*(184) 

1225 PRINTSPC <10)CHR*(165)CHR*(192) 
SPC(5)CHR*(167)CHR*(165)SPC(4)CHR*( 

167)CHR*(165)CHR*(161)CHR*(161)CHR* 
(167)SPC(3)CHR*(167) 

1230 PRINTSPC(10)CHR4(165)CHR4(166) 
SPC(2)CHR*(165)CHR*(161)CHR*(161)CH 
R* <167)CHR*(165)CHR* < 32)CHR4(165)CH 
R*(161)CHR*(161)CHR4(167)CHR4(165)S 
PC(2)CHR*(167)CHR* <165)CHR*(161)CHR 
*(161)CHR*(167) 


1235 PRINTSPC(10)CHR*(165)CHR*(32)C 
HR*(166)SPC(1)CHR*(165)CHR*(179)CHR 
*(179)CHR*(167)CHR*(165)CHR*(32)CHR 
*(165)CHR*(179)CHR*(179)CHR*(167)CH 
R*(165)SPC(2)CHR*(167)CHR*(165)CHR* 
(179)CHR*(179)CHR*(167) 

1240 COLOR 10:RETURN 
1245 REM 
1250 X=1 

1255 F0RN=48T0208STEP32:CIRCLE(N,16 
X + i ■ jvjÉxfLOCATEN-8, 180: PRINT“B" 5 X: X= 

1260 F0RN=62TO192STEP13O:CIRCLE(N,1 
27),23.1.,,4/5:NEXT ’ 

åf!f2V^?!> n 2:PRINT"A":L0CATE 1 8 
1270 X=6 

1275 F0RN=48TO2O8STEP32:CIRCLE(M* 95 
),11,1:LOCATEN-8,70:PRINT-A“J X:X=X- 
1 ■ NEXT 

1280 LINE(48,51)-(195,63),1,BF 
1285 RETURN ’ ’ 

1290 SCREENO,1:C0L0R15,4,5:LOCATE,, 



L01ETEKS? 

TIL USX 1 § 

5 1 LOBETEXT TIL MSX-II 
7 1 

10 GOSUB 60000 

20 SCREEN O:WIDTH 80:COLOR 1,77 
30 INPUT "Text :";LA$ 

40 CLS:GOSUB 61000:GOTO 40 
50 ' 

60 ' ******* PROGRAM-SLUT ********** 
70 ' 

60000 'SYNTAXEN 1988 
60010 'FUNDET AF JOHNNY B 
60070 FOR Z1 - &HD800 TO &HD8A4 STEP 
8 

60080 P-0:FOR Z2-Z1 TO Z1+7:READ Z3$ 
:Z3-VAL("&H"+Z3$):P-P+Z3:P0KE Z2.Z3: 
NEXT Z2 

60090 READ•Z3$:IF P<>VAL("&H"+Z3$) T 
HEN PRINT "ERROR in DATAs":END 
60100 NEXT Z1:DEFUSR1-&HD800:RETURN 
60110 DATA CD,1A,D8,3A,AO,D9,47,ED,4 
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60120 DATA 5B,Al,D9,1A,C5,D5,CD,1A,4 
70 

60130 DATA D8,CD,51,D8,Dl,Cl,13,10,4 
E 83 

’ 60140 DATA F2,C9,F5,C5,D5,E5,21,D0,6 

20 

60150 DATA 02,06,08,C5,01,4F,00,11,1 
36 

60160 DATA 00,D9,23,D5,E5,CD,59,00,3 
DC 

60170 DATA El,Dl,2B,EB,01,4F,00,D5,3 
ED 

60180 DATA E5,CD,5C,00,El,Dl.EB,11,4 
BC 

60190 DATA 4F , 00,19,3E , 20 , CD, 4D , 00,1 
E0 

60200 DATA 23,Cl,10,D7,El,Dl,Cl,F1,5 
2F 

60210 DATA C9,CD,5B,D8,CD,66,D8,CD,5 
Al 

60220 DATA 76,08,09,11,08,00,21,00,2 
51 

60230 DATA 10,47,19,10,FD,C9,06,08,2 
54 

60240 DATA 11,80,D9,E5,CD,4A,00.12,3 
78 

60250 DATA 23,13,10,F8,El,C9,06,06,2 
F4 

60260 DATA C5,CD,1A,D8,CD,83,D8,Cl,5 
6D 

60270 DATA 10,F6,C9,21.1F,03,11,80,2 
A3 

60280 DATA D9,06,08,1A,CB,07,12,30,2 
15 

60290 DATA 04.0E,C8,18,02,0E,20,79,1 
9B 

60300 DATA CD,4D,00,D5,11,50,00,19,2 
69 

60310 DATA Dl,13,10,E7,C9,8A,AB,28,4 
01 

61000 ZZ-VARPTR(LA$):FOR ZY-0 TO 2:P 
OKE &HD9A0+ZY,PEEK(ZZ+ZY):NEXT:A-USR 
■ 1(0):DEFUSR-&HD81A:F0R ZZ-1 TO 80:A- 
USR(O):NEXT:RETURN 



BREV FRA JOHAN 

Breve fra Johan i Lidkoping 
IBM PC KEYBOARD 

I Syntax nummer 3/88 stod det Ilte 
om hur man kan lasa av tangentbor— 
det på en PC. Jag ska nu gå igenom 
ett helt annat sått. 

Som de fiesta kånner till kan man 
låsa av funktionstangenterna med 
foljande instruktioner: 

SVI 318/328 & MSX: 

.10 ON KEY GOSUB 100,200,300 
20 FOR A=1 TO 3;KEY(A)ON:NEXT A 
30 GOTO 30 

100 PRINT'Tl":RETURN 
200 PRINT"F2" .-RETURN 
300 PRINT"F3" .-RETURN 

PC: 

10 ON KEY(1) GOSUB 100 

20 ON KEY(2) GOSUB 200 

30 ON KEY(3) GOSUB 300 

40 FOR A=1 TO 3:KEY(A)ON:NEXT A 

50 GOTO 50 

100 PRINT "Fl":RETURN 
200 PRINT "F2" .-RETURN 
300 PRINT "F3“ .-RETURN 

Denna metod har den fordelen att 
datorn reagerar på en 

tangenttryckning oavsett vad datorn 
hol 1 på med innan. (Jåmfor med 
INPUTS och INKEYn.) 

Samma metod kan vi anvånda for att 
låsa av pi 1tangenterna (dock endast 
på PC). 

PC: 

10 ON KEY(11) GOSUB 100 

20 ON KEY(12) GOSUB 200 

30 ON KEY(13) GOSUB 300 

40 ON KEY(14) GOSUB 400 

50 FOR A=ll TO 14:KEY(A)ON:NEXT A 

60 GOTO 60 

100 PRINT "UPP":RETURN 
200 PRINT "NER" .-RETURN 
300 PRINT "HoGER" .-RETURN 
400 PRINT "VKNSTER":RETURN 
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(Jag hoppas ni forstått att ni i 
ovanstående program ska trycka på 
funktionstangenterna respektive 
pi 1tangenterna.) 

Nu år det så att en PC har hela 6 
tangentkombinationer som kan pro¬ 
grammeras enligt foljande metod: 

PC: 


tangentnumrner, i 11 exempel har NUM 
LOCK nummer 69 om den råknas som 
tangent, och inte som shifttangent. 

Jag rekommenderar att ni tittar 
tillbaka i Syntax nummer 3/88 på 
sidorna 6 och 20. 


10 KEY 15 , CHRn(4) +CHRn (70) 

20 KEY 16 , CHRn (4+32) +CHRJ3 (70) 

30 KEY 17,CHRn(4+64)+CHRØ(70) 

40 KEY 18,CHRn(4+32+64)+CHRG(70) 
50 KEY 19,CHRn(4+1)+CHRQ(70) 

60 KEY 20,CHRn(4+1+64)+CHRG(70) 

70 FORA=15T02 0:ONKEY(A)GOSUB100• 
KEY(A)ON:NEXT A 
80 GOTO 80' 

100 PRINT "CTRL+BREAK" .-RETURN 


Dette år ett ganska såkert stopp- 
skydd, då de enda kombinationerna 
• kan stoppa programmet år 
CTRL+SHIFT+BREAK med NUM LOCK lys- 
och samma kombination med 
BADE NUM LOCK och CAPSLOCK lysande 
Annu såkrare bl ir skyddet om rad 
100 endast består av return. 


5L det hdr sattet kan du också gora 
CTRL+ALT+DEL-skydd och liknande 
historier. Nu ska jag nårmare 
forklara hur detta går till. 


Forst måste tangentkombinationerna 
definieras med foljande instruktion 

KEY X,CHRn(shiftnr)+CHRG(tangentnr) 

Hår fol jer existerande shifttangen- 
ters koder.- 


1 = SHIFT 
4 = CTRL 
8 = ALT 
32 = NUM LOCK 
64 = CAPS LOCK 


Tangenternas nummer får inte plats 
hår, men två smakprov år ESC (1) 
och SCROLL LOCK/BREAK (nummer 70) 

§ftiffeåFfi§ hår 4@@sutem 


Observera att ni i många 
bor anvånda instruktionerna 
OFF och KEY(x)STOP.for att 
att en gamma 1 rutin råkar 
igång senare i programmet. 


program 
KEY(x) 
undvika 
såttas 


Detta år ganska avancerat, men om 
du tar hjålp av dina manualer 
(samtiiga) kan du nog snart anvånda 
det i dina egna. program. Var dock 
noga med att programmet ska fungera 
riktigt AVEN om Caps LOCK råkar 
vara påslagen... 


o-o-o-o-o- 

Några små tips... 

1.Hår år en liten lista over CTRL:s 
funktioner. Materialet år delvis 
håmtat ur den engelska manualen til 


CTRL+B Hopp ett ord bakåt, 

CTRL+C Stopp vid inmatning. 

CTRL+E Rensa från markoren. 

CTRL+F Hopp ett ord framåt 
CTRL+G Beep—ljyd. 

CTRL+H BACK SPACE 
CTRL+I TABULATOR 
CTRL+J LINE FEED 
CTRL+K HOME 
CTRL+L CLS 
CTRL+M ENTER 

CTRL+N Hopp till radslut. 

CTRL+O "Explosion" på PC 

CTRL+R INSERT 

CTRL+T Key on/off på PC. 

CTRL+U Rensa rad. 

CTRL+X SELECT 

2 - en SVI 318/328 har 

tangem -kandet en egen kontrol 1- 
mstrukr i. På en MSX sker detta 
dock på i jande vis: 









SV'I-318/328 MSX 
CLICX OFF SCREEN ,,0 

CLICK ON SCREEN ,,1 

3. På sidan 31 i Syntax nummer 4 
från i år, påstås det att man kan 
spara en fil i Ascii-format med 
kommandot CSAVE"namn",A. Detta år 
dock fel, eftersom CSAVE/CLOAD inte 
kan hantera Ascii filer. Gor i 
stål let så hår: 

(Kassettstation) SAVE"CAS:namn" 
(diskettstation) SAVE"namn:",A 

For att ladda, skriv: 

(kassettstation) LOAD"CAS:" 
(diskettstation) LOAD"namn" 

-o-o-o-o-—-o—■—o- 

Hår fol jer några tips och ideer. 

1. Har du skrivit in Johnny B.-s 
program med musik och grafik, som 
fanns i Syntax nummer 2 från i år ? 
Prova då att skriva in dessa rader: 

105 SOUND 6,&bl11000 
2050 ed(3)="" 

2145 FOR Z=1 to 2000:NEXT Z 

2150 PLAY"T180S1M7000","T180S3M700" 

,"T180S11M2700" 

2155 SOUND 6,3:SOUND 7,&B101010 

Radera raderna 2260 och 2300. Prova 
också med att åndra siffrorna som 
står efter S och M i PLAY-kommandot 
Den andra låten har nu trumljyd. 

2. Har du skrivit in det forstå 
programmet på Svenska sidan som 
fanns i SYNTAX nummer 4 ? 

Om du har en MSX-dator lår det inte 
fungera ordentligt om du inte 
åndrar portnumret &HS1 till &h99. 

3. Kop THE MSX RED BOOK om du vi 11 
veta mer Om din dators processorer 
och RAM- och RAM-minna. 

Det som står i punkt 5 år håmtat 
från sidorna 54 och 231 i den 
boken. 


4. Om du har en SVI 728 

rekommenderar jag att du studerar 
sidorna 201-202 i din ENGELSKA 
manual. Dår finns instriktionernas 
råtta syntax, genomgång av PRINT 
USING och tangentkoder bl.a. 
SELECT=24, ESC=27, ENTER=13, 

DEL=127 o.s.v. 

5. Som ni såkert vet kan al la 
tangenter låsas av med INPUTH(l) 
och INKEYn, utom sex stycken. De 
heter SHIFT, CTRL, GRAPH, CODE, 
STOP och CAPS LOCK. 

Detta kan losas så hår: 

10 ?PEEK(&HFBE0),BIND(PEEK(&HFBE0)) 
.•GOTO 10 

Kor programmet och tryck ner någon 
av ovan nåmda tangenter. Så hår 
svarar datorn: 

255- 1=254 for SHIFT 
255- 2=253 for CTRL 
255- 4=251 for GRAPH 
255- 8=247 for CAPS LOCK 
255-16=239 for CODE 

Observera vad som hånder med det 
binåra talet. Tryck ner SHIFT och 
CTRL samtidigt. Vad hånder? 

Jo, datorn svarer 255-1-2=252. 
Enke 11 va'? 

Om du vi 11 låsa av STOP (ej 
CTRL+STOP) måste du gå till våga på 
ett annat sått. Skriv in det hår 
programmet: 

10 POKE &HFBB1,1:REM stånger av 
vanlig STOP-funktion. 

20 ?peek(&hfbel),bind(peek(&hfbel)) 
:goto 20 

Om du nu trycker ner STOP svarar 
datorn 255-16=239. 

Observera att rad 10 år obligato¬ 
risk . 

Vi takker Johan for hans indlåg. 
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*-*--*-* SVI 320 TIPS *-*"*-*. 


SVI 328 TIPS 

Gem Funktionstasterne som en BLOAD 
fil så er det simplere og hurtigere 
at definere dem. 

SVI328: 

BSAVE'TNKl ", &HFA1E, &HFABD, &H3B95 
MSX: 

BSA VE"FNK1 ", &hF87F, &HF91E, &HC9 

Bemark RUN adressen, det er ROM- 
Rutmen FNKSB der viser Funktions¬ 
tasterne hvis den må. 

For at load'e sine funktionstaster 
skriver du bare: 

BLOAD "FNK1 ",R 

For SVI-328 ejere med 40 Tracks 
Diskdrev er her lidt info om for¬ 
ma teringsprogrammet "svfrmt ". 

Programmet ligger på adresserne 
C400h - D500h og det er en god ide- 

at skrive fdigende Clear for man 
Bl oader programmet. 

Clear 200,&hC3FF 
Bl oad “svfrmt ", r 

“svfrmt" korer ikke sarligt godt 
sammen med 80 tegns-kortet js<3 hvis 
du er den lykkelige ejer af et 
sådan skal du for at bruge "svfrmt" 
skifte over til almindelig 40 tegn. 

På adressen C4E7h ligger en var. 
der fortaller programmet hvor mange 
Tracks som skal formateres på disk¬ 
etten. 

Der er på en alm. diskette plads 
til 41 Tracks uden at der opstår 
fejl på den, denne mulighed vil vi 
da ikke gå fra os så prov at poke: 

Poke&HC4E7,41 :Defusr=&hC400 
A=usr(0) 

Når den Fysiske formatering er 
fardig skal man jo også formatere 


den 'Logisk' med " format" i Basic. 

I “format" skal du også andre lidt 
for at kunne bruge Track 40. i 

I linie 360 står der: 

360 LSET AU=StringG(3, 254) +Stringt3( 

17, 255) -hchrb(254) +stringP(l 9, 255) 

Dette reserverer de 3 fors te Tracks 
til SYSTEM'et. 17 Tracks til alm 
brug, 1 Track reserveret til Direc¬ 
tory & 19 Tracks til alm. brug. 

Du kan så andre den sidste STRINGG 
til : StringP(20,255) og der er 
plads til Track 40 (0-40 « 41 Track) 

Vil du have 2 Tracks mere kan du 
også få det men på bekostning af 
SYSTEM'et. 

360LSETaft=chrG(254) +StringG(l 9, 255) 

■f-Chrb (254) +StringG (20, 255) 

Track 0 har et specielt format, 
nemlig 18 sectorer på 128 Bytes, og 
dette kan man ikke gemme programmer 


Skriv : 

Print DSKF(l) + <ENTER> 

38 Tracks har du at lege med. 

===' + ===+='== +==~+=; = , =s + =!== + =!==i . s , ==+=:== 

Her er et par af mine private High- 
Scores som du jo kan prove at slå. 

Punchy 138.296 Points 

Super Cross Force 5.888000 (39 liv) 

Spectron 9660 

NINJA 53.800 

Super Cross Force spillede jeg i 10 
timer på en kedelig regnfuld Lordag 
morgen-formiddag-eftermiddag-aft en 
da pludselig computeren gik ned på 
grund af hedeslag. På dette tids¬ 
punkt havde jeg 39 ekstra liv, tank 
engang at jeg har måtte kampe mig 
igennem 4 * 39 baner for at opnå 

disse. 


SIDEN DEN LoRDAG HAR 
JEG ALDRIG SPILLET 
DET SPIL. 
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■«-*** APROPO FORSIDEN -*■ SETBOTTOM -*-*--*-* 


APROPO FORSIDEN 

| De fleste af jer har ja nak set at 
* bladets forside har været en tur 
hos plastik-kirugen og fået 
' strammet ansigtstrækkene op. 

Den nuværende forside-ramme er nok 
det færdige resultat efter et par 
forsøg i starten af året. 

Indholdet i rammen varierer fra 
nummer til nummer, vi er så heldige 
vi fra den 'verdensberømte' 
norske tegner ' GRIFFER ' har 
modtaget en stak tegninger der alle 
er relevante med hensyn til Compu¬ 
tere og specielt SVI—300 Serien og 
MSX. Disse tegninger bliver bragt i 
store og små udgaver rundt omkring 
i bladet sammen med andre tegninger 
fra vores ’bi 11 ed-arkiv'-der bla. 
udgør tegninger fra PC-programmet 
'FONTASY' der er virkeligt stærkt. 

Vores billedarkiv er desvære ved 
at være tyndslidt og i har jo også 
snart set dem alle. Derfor ser vi 
meget gerne at folk sammen med evt. 
artikler og programmer indsender 
noget 'RELEVANT’ udfyldningsmate — 
riale der 1 i'som underbygger og 
holder siderne oppe, Ikk’ ! 

Som i kvikke læsere nok også har 
bemærket rundt omkring, er det ikke 
alle listninger der står helt 
tydeligt frem når det har været hos 
trykkeren. Dette fænomen skyldes 
alt for ofte nedslidte farvebånd, 
men selve trykkeprocessen giver 
også et vis 'svækning' af det der 
, ellers hjemme hos os så pænt og 
tydeligt (men måske lidt tyndt> ud. 

fP Derfor: Alt materiale der skal 

DIREKTE i bladet bedes skrives ud 
med enten nye farvebånd eller også 
i dobbelt—strike eller fremhævet 
(eller begge to ting samtidigt som 
denne tekst er det). 

Skitser o.lign. skal være med 
tykke streger for at det kan ses i 
den færdige udgave. 


SETBQTTOH 

Undertiden kan det være en fordel 
at lyf te Basic Bunden, ialt så start¬ 
adressen for Basic programmer. 

Når man gør dette kan man have 
nogen små NC—rutiner liggende ne¬ 
denunder Basicprogrammerne. 

Denne opgave kan løses med et par 
Pokes men jeg syntes det er bedre 
ag nemmere at bruge programmet som 
jeg viser am lidt. 

10 ' PROGRAMNAVN: Setbottam 
20 ' MASKIN TYPE: MSX 
30 ' FORMAL : At ly fte Basic bunden 
40 ' så der er plads til 

50 ' små MC-kode rutiner. 

60 ’ Programmør : Henrik G 
70 ' (c) Syntaxen 1988 

80 Cis 

90 POKE &HFCAB, 1 

100 INPUT"Hvor ønsker du 'BOTTOM'( 
HEX)";A$ 

110 If A$<"8000" or A$>"EOOO" Then 
Print"Så stor må den ikke være. 
":Print"Du skal angive en adr. 
fra 8000 - E000":Goto 100 
120 Print"Ny Basic 'Bottom' er=";A$ 
130 Q1=VAL("&H"+A$) 

140 BH=Ql 0 256 

150 BL =01 Mod 256 

160 Poke &hFC48, BL :' Bottom 

170 Poke &hFC49, 256 +BH 

180 Poke &hF676, 1+BL : ' TXTTAB 

190 Poke 8thF677, 256 +BH 

200 Poke 01,O:Poke 01+1,0 

210 Cls:Print"Basic-Bund =";A$ 

220 New 

Lidt fork 1 aring: 

Linie 90 : Sætter Caps Lock on 
Linie 120: Ex. På dårlig programme¬ 
ring da denne print slettes i 
1 i nie 210 om ca 1/10 sec 
Linie 140: '0' er "Backsiash' der 

jo er Hel talsdi vi dering 
Linie 170: BH er negativ og derfor 
skal den gøres positiv 
på denne må de. 

Linie 180: TXTTAB skal være lig 
(BOTTOM) +1 

Linie 200: Første Byte SKAL være 0 


Tak fra REDAKTIONEN. 


Henrik G 






FORBEHOLDT POSTVÆSENET 


HVILKE ANDRE PROGRAMMERINGS SPROG 
FINDES DER TIL SVI328: 

Dette var et spørgsmål på et GIRO 
kort og til det kan vi svare: 

Man skal over og køre i CP/M for 
at få andre programmerings sprog 
til sin SVI-328. 

At køre CP/M På SVI-328 kræver: 

Expanderboks (Ikke den lille SV602) 

1 eller 2 Diskettestationer 
1 Disk-Controller SVI-801 
(1 80 tegnskort SVI-806) 

80 tegnskort er sat i parentes 
fordi man godt kan køre CP/M uden 
men det er faktisk et 'MUST' at 
have dette kort for at få doget som 
helst ud af det. (De fleste 
programmer bruger nemlig de 80 tgn) 


CP/M er vel så småt ved at glide ud 
til fordel for PCerne da alle de 
gamle CP/M versioner efterhånden 
kan fås i stærkt forbedrede udgaver 
der både kører hurtigere og ofte er 
blevet enormt brugervenlige. 

Trods disse fordele ved PCere kan 
os amatører vel stadig bruge CP/M 
udgaverne, hvis vi altså vil give 
afkald på Grafiken og en helt 
unødvendig hastighed som ikke for 
os er lig med penge. 

(En amatør er en der kan LIDE at 
beskæftige sig med en HOBBY, hvil¬ 
ket ikke behøver at betyde at hun/ 
han er dårligere til det end de 
‘Professionel le 1 ) 


Her er så en liste over de sprog 
Jeg har set under CP/M. 

C0MAL-80 

MBASIC 

COBOL 

Kompas-Pascal 
POLY-PASCAL 
TINY-PASCAL 
C-Compi1 er 
MACRO ASSEMBLER 
TURBO-Pascal 


Arken 
Calk-Star 
Data-Star 
Dbase2 

Perfeet Writer 
Super-Calk 
Word-Star 

Programmerne under stregen er 
forskellige DATA behandlere hvilket 
vel også er en slags programmeri ngs 
sprog. 



De forskellige Pascal kompilere er 
næsten ens, PolyPascal er nok den 
mest brugervenlige, Turbo er den 
hurtigste. 




